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SEQ OOCK 



2 1.0 ABSTRACT 

I THE PURPOSE OF THIS PROGRAM IS TO VERIFY THE COMPATIBILITY OF UP TO 16 

5 RM05/3/2 DRIVES WHICH MAY RCSjDE ON 1 OR MORE RH/RM SUBSYSTEMS. 

6 L0MPATI8ILITY IS DEFINED HERE AS THE ABILITY OF A DRIVE TO WRITE DATA 

7 WHICH CAN BE READ SUCCESSFULLY BY ALL OTHER DRIVES, AND ADDITIONALLY THE 

8 ABILITY OF A DRIVE TO COMPLETELY OVER-WRITE DATA WRITTEN BY ALL OTHER 

9 DRIVES. 
10 

11 THE PROGRAM IS DESIGNED TO DETE'^T THE FOLLOWING CONDITIONS WHICH MOST 

12 COMMONLY CAUSE INCOMPATIBILITY BETWEEN DRIVES: 
13 

U 1. HEAD MIS-ALIGNMENT 
15 

16 2. POSITIONER LATERAL MISALIGNMENT 
17 

13 3. SPINDLE-CARTRIDGE INTERFACE RUNOUT 
19 

20 A. IMPROPER LEVELS OF WRITE CURRENT 
21 

22 5. INCORRECT ADDRESSING OF READ/WRITE HEADS 

23 

24 

25 THE TESTING IS DONE IN TWO PASSES. IN PASS 1. COMPATIBILITY DATA 

26 PATTERNS ARE WRITTEN BY ALL THE DRIVES UPON THE SAME DISK CARTRIDGE, 

27 AND THE BASIC READ/WRITE CAPABILITY OF EACH DRIVE IS DEMONSTRATED. IN 

28 PASS 2. THE COMPATIBILITY DATA FROM ALL DRIVES IS READ BY EACH DRIVE, 

29 WITH HEAD OFFSET. AND THIS IS COMPARED WITH EACH DRIVE'S 

30 ABILITY TO READ ITS OWN DATA. IN ADDITION, EACH DRIVE'S CAPABILITY TO 

31 OVERWRITE DATA WRITTEN BY ALL OTHER DRIVES IS TESTED ON THE SECOND 

32 PASS. (FOR THE REMAINDER OF THIS SPECIFICATION, THE ABOVE DEFINITIONS 

33 OF THE FIRST AND SECOND PASS SHALL APPLY). 
34 

35 IN BOTH PASSES, THE PROGRAM DIRECTS THE OPERATOR IN THE LOADING AND 

36 UNLOADING OF DRIVES AND THE MOVEMENT OF THE CARTRIDGE FROM DRIVE TO 

37 DRIVE. THROUGH MESSAGES AT THE CONSOLE TERMINAL. AT THE COMPLETION OF 

38 TESTING ON EACH DRIVE DURING THE SECOND PASS A SUMMARY IS PRINTED OF 

39 COMPATIBILITY TEST RESULTS FOR THAT DRIVE. 
40 

41 WITHIN THE VARIOUS TESTS OF BOTH PASSES. THE CAPABILITY IS PROVIDED TO 

42 LOOP ON CURRENT OPERATIONS, AND SWITCH REGISTER OPTIONS ARE PROVIDED, 

43 FOR A VARIETY OF LOOPING. RUNNING. AND REPORTING MODES (SEE 

44 SECTION 6.2). 
45 

46 UNEXPECTED ERRORS WILL BE REPORTED AS THEY OCCUR. THE REPORT WILL 

47 INCLUDE DESCRIPTION AND APPLICABLE DEVICE REGISTER CONTENTS. 
48 

49 
50 

51 2.0 HARDWARE REQUIREMENTS 
52 

53 THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE RM05/3/2 DRIVE COMPATIBILITY 

54 PROGRAM. 
55 

56 PDP-11 PROCESSOR 

57 12k memory 
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58 KU11-L OR KWll-P CLOCK 

59 PROGRAM LOADING DEVICE 

60 TERMINAL 

61 RH11 OR RH70 CONTROLLER , 

I2 1 TO 8 DISK DRIVES PER CONTROLLER (ANY COMBINATION OF RMOS'S, RM05'S OR RMO?'S) 

Q ANY COMBINATION OF DRIVE TYPES MAY BE MIXED T06EHTER ON A CONTRacER. BUT, DO 

65 TO THE PHYSICAL SIZE OF THE DISK PACKS, THE RM03/2'S AND THE RMOS'S CfMC^ BE 

66 SELECTED FOR COMPATIBILITY TOGETHER. IF FOR SOME REASON AN RM03/2 AND AN RM05 

67 ARE SELECTED FOR COMPATIBILITY TOGETHER, THE PROGRAM WILL RErOGNIZE THIS UPON 

68 THE DIFFERENT DRIVE TYPE AND TYPE THE FOLLOWING MESSAGE: 

70 7CANN0T SELECT RM03/2'S AND RMOS'S TOGETHER (NOT COMPATIBLE) 

71 

75 IN ADDITION, A SINGLE RM03/2 OR RM05 DISK CARTRIDGE IS REQUIRED WHICH MUST BE 

74 FORMATTED IN 32 SECTOR FORMAT, ON A RELIABLE W£LL-ALIGNED(REFERENCE PACK) 

75 RM03/2 OR RM05 DRIVE. THIS CARTRIDGE WILL BE MOVED FROM DRIVE TO DRIVE, (ON UP 

76 TO 16 DRIVES) ON EACH OF THE TWO PASSES. 
77 

78 
79 

80 3.0 PRELIMINARY PROGRAM REQUIREMENTS 

82 BEFORE RUNNING THE RM05/3/2 DRIVE COMPATIBILITY PROGRAM, THE SIJBSVSTEM(S) 

83 UNDER TEST SHOULD BE CAPABLE OF PASSING THE DISKLESS TESTS AND THE 'HE 

8A FUNCTIONAL TESTS. IN ADDITION, THE CARTRIDGE MUST BE FORMATTED IN 32 SECTOR 

85 FORMAT USING THE PACK FORMATTER. 

86 
87 
88 

8V A.O GENERAL PROGRAM CONSIDERATIONS 

90 

91 A.I SYSMAC 

92 

93 THIS PROGRAM USES PORTIONS OF THE SYSMAC DIAGNOSTIC SYSTEM MACRO 

94 PACKAGE. 
95 

96 

97 

98 A. 2 XXDP 

99 

100 THIS PROGRAM MAY BE LOADED UNDER XXDP. AND MAY BE RUN IN DUMP MODE 

101 ONLY. DUE TO MANUAL INTERVENTION AND LACK OF END-OF-PASS HOOKS. ^Mf 

102 PROGRAM IS NOT XXDP CHAINABLE. 

103 
104 

105 A. 3 ACT 

106 

107 THIS PROGRAM MAY BE LOADED JNDER ACT AND MAY BE RUN IN DUMP MODE ONc*. 

108 IT IS NOT CHAINABLE UNDER ACT. 
109 

110 
111 

112 A. 4 APT 

111 THIS PROGRAM MAY BE LOADED BY THE APT SYSTEM. BUT NAY BE RUN IN 
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115 PROGRAM (DUMP) MODE ONLY. IT CANNOT BE RUN JN APT SCRIPT MODE. 

116 
117 
118 

119 4.5 DUAL-ACCESS 

1?? THIS PROGRAM DOES NOT UTILIZE THE DUAL-ACCESS OPTION IN ANY WAY. AND 

122 ALL DRIVES UNDER TEST SHOULD BE DE-SELECTED THROUGH THE PORT WHICH IS 

123 NOT IN USE , OR LOCKED ON THE PORT BEING TESTED. 
12A 

125 
126 

127 4.6 MEMORY MANAGEMENT 

129 MEMORY MANAGEMENT IS NOT UTILIZED IN THIS PROGRAM. IF IT IS 

130 INSTALLED. IT IS DISABLED BY THE PROGRAM. 

131 
132 
133 

13i; 4.7 MEMORY PARITY OPTION 

136 IF PARITY MEMORY IS INSTALLED. MEMORY PARITY TRAPS ARE DISABLED BY THE 

137 PROGRAM. 

138 
^39 
140 

141 4.8 BAD SECTORS 

'42 

K3 THE LIST OF BAD SECTORS ON THE CARTRIDGE IS OBTAINED FROM THE FIRST 

HA DRIVE TO BE TESTED ON THE CURRENT SUBSYSTEM. ACCORDING TO A SWITCH 

145 REGISTER OPTION (SEE SECTION 6.2) THIS LIST MAY BE TYPED AT THE 

lAb CONSOLE AT THE START OF THE FIRST PASS. AFTER READING THE BAD SECTOR 

H7 FILE, THE PROGRAM SEARCHES THE LIST OF BAD SECTORS TO DETERMINE IF ANY 

K8 BAD SPOTS EXIST IN ANY TEST AREAS ON THE DISK PACK. IF A BAD SPOT IS 

U9 FOUfJD TO BE PRESENT IN ANY OF THE TEST AREAS, THE FOLLOWING MESSAGE 

150 WILL BE TYPED; 

'51 

152 F>ACK IS NOT ACCEPTABLE. CHANGE PACK AND TRY AGAIN. 

153 
154 
155 

156 4.9 EXECUTION TTMf 

158 THE TOTAL TIME REQUIRED TO RUN THE DRIVE COMPATIBILITY PROGRAM IS 

159 DIRECTLY PROPORTIONAL TO THE NU^BER OF DRIVES TO BE TESTED AND 

160 REQUIRES ABOUT 2 MINUTES PER RM05/2 DRIVE AND ABOUT 5 MII^TES PER RM05 

161 DRIVE. NOT INCLUDING OPERATOR INTERVENTION. 
162 

163 
164 

165 5.0 PROGRAM LOAD MEDIA 

166 

167 THIS PROGRAM CAN BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER 

168 OR FROM THE ACT OR APT SYSTEMS OR FROM ANY MEDIA SUPPORTED BY XXDP. 
16<^ 

170 
171 
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172 6.0 PROGRAM OPTIONS 

173 

174 6.1 STARTING ADDRESSES 

I7I 2nn - THIS IS THE STARTING ADDRESS FOR DEFAULT PARAMETERS AND 

177 RUNNING OF PASS 1 AND PASS 2 ON A SINGLE SUBSYSTEM. THE 

178 PROGRAM WILL USE DEFAULT RH/RM BASE ADDRESS, INTERRUPT 

179 VECTOR AND PRIORITY. THE PROGRAM WILL ASSUME ALL DRIVES TO BE 

180 TESTED RESIDE ON ONE RH/RM SUBSYSTEM ONLY. 
131 

182 204 - THIS IS THE STARTING ADDRESS TO RUN PASS 1 ON ALL 

133 RH/RM SUBSYSTEMS WHICH RESIDE ON THIS PDP-11 SYSTEM. THE 

184 PROGRAM WILL ASK FOR THE RH/RM BASE ADDRESS, INTERRUPT 

185 VECTOR. AND PRIORITY FOR EACH SUBSYSTEM ON THIS SYSTEM, AND 

186 IT ASKS FOR THE LETTER NAMES (A THRU H) ASSIGNED TO ALL 

187 OTHER SUBSYSTEMS, AND THE DRIVE (S) WHICH WILL BE TESTED ON 

188 EACH. 
'< 89 

190 210 - THIS IS THE STARTING ADDRESS TO RUN PASS 2 ON ALL 

191 RH/RM SUBSYSTEMS WHICH RESIDE ON THIS PDP-ll SYSTEM. THE 

192 PROGRAM WILL ASK FOR THE RH/RM BASE ADDRESS, INTERRUPT 

193 VECTOR FOR EACH SUBSYSTEM ON THIS SYSTEM, AND IT ASKS FOR 

194 THE LETTER NAMES (A THRU K) ASSIGNCD TO ALL OTHER SUBSYSTEMS. 

195 AND THE DRIVE (S) WHICH WILL BE TESTED ON EACH. 

196 
197 
198 

199 6.2 'SOFTWARE' SWITCH REGISTER 

200 

201 If THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR 

202 THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 

203 NOT PRESENT AND WILL USE A 'SOFTWARE * SWITCH REGISTER. THE 

204 'SOFTWARE' SWITCH REGISTER IS LOCATED AT LOCATION 176 (8). THE 

205 SETTINGS OF THE 'SOfTUARfc' SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 

206 ROUTINE WHICH IS CALLED BY TYPING A 'CONTROL 6'. THE PROGRAM WILL 

207 RECOGNIZE THE 'CONTROL G* AT ANY TIME EXCEPT WHEN THE PROGRAM 

208 IS AT A HIGHER PRIORITY PROCESSING AN RM80 INTERRUPT. THE 

209 'SOFTWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 

210 TO THE PROWT FROM THE SWITCH ENTRY ROUTINE: 

211 ... 

212 'SWR - NNNNNN NEW =' 

214 EACH TIME SWITCH SETTING ARE ENTERED. THE ENTIRE SWITCH REGISTER 

215 IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED.. 'RUBOUT' AND 

216 'CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 

217 DURING SWITCH ENTRY. 

219 ON PROCESSORS WITH HARDWARE SWITCH REGISTERS. THt 'SOFTWARE' SWITCH 

220 REGISTER MAY BE USED. IF THE PROGRAM FINOS ALL 1'S IN THE SWITCHES. 

221 ALL SWITCH REGISTER REFERENCES WILL BE TO THE * SOFTWARE REGISTER 

222 AND THE PROCEDURES DESCRIBED ABOVE ML'ST BE FOLLOWED. 

223 
224 

225 6.3 OPERATIONAL SWITCH SETTINGS 

226 

227 WITH ALL SWITCHES SET TO ZERO, THE PROGRAM WILL TYPE 

228 ALL ERRORS AND CONTINUE TESTING. 
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230 THE SWITCH SETTINGS ARE: 

232 BIT OPTION 

III 15 HALT ON ERROR 

P35 U LOOP ON CURRENT TEST 

236 13 INHIBIT ERROR REPORTS 

237 12 REPORT DESCRIPTION ONLV, ON ERRORS 

238 11 JNUSED 

239 10 BELL ON ERROR 
2^0 09 LOOP ON ERROR 

241 08 APPLY RANDOM STALL BETWEEN OPERATIONS 

242 07 TYPE BAD SECTOR FILES (BSF'S) AT START 
2A3 06-00 UNUSED 

2A4 
245 

zt? 7,0 RUWING THE PROGRAM 

249 ONCE THE PROGRAM HAS BEEN LOADED INTO CORE (IN A GIVEN SYSTEM. IF 

250 THERE ARE MULTIPLE SYSTEMS) THE FOLLOWING STEPS MUST BE TAKEN TO RUN 

251 THE PROGRAM: 
?52 

253 1. INSURE THAT ALL DRIVES TO BE TESTED ARE POWERED UP AND SINGLE 

254 PORT SELECTED. 

256 2. LOAD THE DESIRED START ADDRESS. 

258 3. SET ANY DESIRED BITS IN THE HARDWARE SWITCH REGISTER (IF 

259 PRESENT). 

26^ 4. START THE PROGRAM. 

263 5. FOLLOW ALL INSTRUCTIONS TYPED BY THE PROGRAM PERTAINING TO 

264 THE MANUAL INTERVENTION REQUIRED. AND THE ALTERNATE USE OF 

265 MULTIPLE SYSTEMS (IF THERE ARE ANY), 
266 

267 
268 

269 8.0 OPERATIONAL DIALOGUE 

27? THIS SECTION DESCRIBES THE CONSOLE TERMINAL DIALOGUE THROUGH WHICH THE 

272 PROGRAM DIRECTS THE OPERATOR. IN THE SELECTION OF OPTIONS AND THE 

273 LOADING AND UNLOADING OF DRIVES. AND THE MOVEMENT OF ^HE TEST 

274 CARTRIDGE. THE EXACT DIALOGUE WHICH IS USED DEPENDS UPON THE STARTING 

275 ADDRESS WHICH WAS CHOSEN (SEE SECTION 6.1). 

277 IN THE FOLLOWING DISCUSSION AND IN THE PRINTOUT OF TEST RESULTS. 

278 DRIVES TO BE TESTED WILL BE REFERRED TO BY A LETTER AND A NUMBER. 'HE 

279 LETTER IS THE SUBSYSTEM LETTER NAME (OPERATOR ASSIGNED). AND THc 

280 NUMBER IS THE DRIVE NUMBER ON THAT SUBSYSTEM. FOR EXAMPLE. DRIVE C6 

281 REFERS TO DRIVE 6 ON SUBSYSTEM C. 
282 

283 

284 8.1 DIALOGUE FOR ADDRESS 200 START 
285 
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286 

287 THIS STARTING ADDRESS MAY BE USED FOR DEFAULTING PARAMETERS ON ONE 

288 SUe-SYSTEM. 

289 THE PROGRAM FIRST IDENTIFIES ITSELF AS FOLLOWS: 

291 C2RMT80 - RM05/3/2 DRIVE COMPATIBILITY TEST 
292 

293 THEN. THE PROGRAM ASKS THE DRIVES TO BE TESTED. 

294 THE PROGRAM TYPES THE 

295 DRIVE LIST, AS IN THE FOLLOWING EXAMPLE: 
296 

297 DRIVES = 2,5.7<CR> 

?98 

299 THE PROGRAM NOW PROCEEDS WITH PASS 1. AND DIRECTS THE OPERATOR IN THf 

300 MOUNTING OF THE PACK. AS DESCRIBED IN SECTION 8. A. 

302 PLEASE NOTE THAT THERE IS ONLY ONE SUBSYSTEM ON AN ADR. 200 STAPT, 

303 AND IT IS NAMED SUBSYSTEM A. THE DRIVES IN THE ABO^E EXAMPLE WOULD BE 
3M REFERRED TO AS A2,A5.A7 IN THE TEST RESULTS PRINTOUT AT THE END OF 
305 PASS 2. 

306 
307 
308 

309 8.2 DIALOGUE FOR ADDRESS 20A START 

31? THIS STARTING ADDRESS MUST BE USED ON EACH SYSTEM, WHEN THERE IS MORE 

312 THAN ONE SUBSYSTEM. BUT IT MAY ALSO BE USED WHEN THERE IS JUST ONE 

313 SUBSYSTEM (TOTAL). TO SPECIFY DRIVES TO TEST AND NON-DEFAULT PARAMETER 

314 VALUES. FOR PASS 1. 

316 THE PROGRAM IDENTIFIES ITSELF AS FOLLOWS: 

318 CZRMT80 - RM05/3/2 DRIVE COMPATIBILITY TEST 
319 

320 THEN. THE PROGRAM ASKS THE OPERATOR FOR THE DRIVES TO BE TESTED ON 

321 EACH OF THE POSSIBLE SUBSYSTEMS (STARTING WITH A - THE NAMES RANGE 

322 FROM SUBSYS A TO SIJ3SYS H, THERE COULD BE UP TO 8 SUBSYSTEMS. WITH A 

323 DRIVE ON EACH): 

325 SUBSYS A DRIVE (S) = 

326 

327 THE OPERATOR THEN TYPES THE DESIRED DRIVE NUMBERS. AS IN THE FOLLOWING 

328 EXAMPLE: 
329 

330 SUBSYS A DRIVE (S> = 2.5,7<CR> 

332 THE PROGRAM THEN VERIFIES THE DRIVE NUMBERS BY TYPING: 

334 WILL TEST DRIVE(S) 2,5.7 ON SUBSYS A. 
335 

336 NEXT. THE PROGRAM ASKS THE FOLLOWING QUESTION: 

338 IS THERE ANOTHER SUBSYS (Y OR N)? 
339 

340 THE OPERATOR TYPES 'Y' OR 'N*. (IF JUST <CR> IS TYPED. THE PROGRAM 

341 ASSUMES THAT 'N' WAS TYPED). IF THE OPERATOR TYPED 'N*. THE PROGRAM 

342 PROCEEDS WITH PASS 1. AND DIRECTS THE OPERATOR IN THE MOUNTING OF THE 
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»;5 PACK, AS DESCRIBED IN SECTION 8.4. IT 'V WAS TYPED, THE PROGRAM ASKS 

544 FOR THE NUMBERS OF THE DRIVES TO BE TESTED ON THE NEXT SUBSYSTEM 

545 (SUBSYS B) AS FOLLOWS: 
546 

547 SUBSYS B DRIVE (S) = 

548 

549 THE OPERATOR TYPES THE DRIVE NUMBERS, AS IN THE FOLLOWING EXAMPLE: 

550 

551 SUBSYS B DRIVE (S) = 2,3<CR> 

352 

555 THE PROGRAM THEN VERIFIES THE DRIVE NUMBERS. BY TYPING: 

534 

555 WILL TEST DRIVE(S) 2,3 ON SUBSYS B. 

556 

357 NEXT. THE PROGRAM WILL ASK: 

358 

559 IS THERE ANOTHER SUBSYS (Y OR N)? 

560 

561 AND IN THE SAME MANNER, THE OPERATOR SPECIFIES THE DRIVES ON EACH OF 

562 THE REMAINING SLBSYSTEMS, UNTIL ALL HAVE BEEN SPECIFIED. 
565 

564 

565 ALL SUBSYSTEMS MUST BE TESTED IN THE ORDER IN WHICH THE LETTERS ARE 

566 ASSIGNED (A THRU H) . NEXT, THE PROGRAM ALLOWS THE OPERATOR TO ALTER 

567 THE RH/RM BUS ADDRESS, VECTOR ADDRESS FOR THIS SL8SYSTEM. FOR EACH 

568 PARAMETER THE CURRENT VALUE IS TYPED, AND THE OPERATOR IS GIVEN THE 

569 OPPORTUNITY TO TYPE IN A NEW VALUE, PLUS <CR>. IF JUST <CR> IS TYPED, 

570 THE PARAMETER IS NOT CHANGED. WHEN THE PROGRAM IS FIRST LOADED, THE 

571 FOLLOWING DEFAULT VALUES ARE ASSIG^tfD: RH/PM BUS ADDRESS = 177670, 

572 VECTOR ADDRESS = 240, (IF 200 START). THE FOLLOWING EXAMPLE SHOWS A 
575 PRINTOUT IN WHICH BUS ADDRESS AND VECTOR WERE CHANGED: 

57<, 

575 RMCS1 = 000000 177670 

576 RMVEC = 000 254 

377 

578 THEN THE PROGRAM PROCEEDS WITH PASS 1, AND DIRECTS THE OPERATOR IN THE 

579 MOUNTING Of THE PACK, AS DESCRIBED IN SECTION 8.4. AT THE COMPLETION 

580 OF PASS 1 ON THE SUBSYSTEM, THE PROGRAM WILL INFORM THE OPERATOR HOW 
581 

582 TO PERFORM PASS 1 ON THE NEXT SUBSYSTEM. 

585 

584 

385 

386 8.3 DIALOGUE FOR ADDRESS 210 START 

587 

588 THIS STARTING ADDRESS MUST BE USED ON EACH SYSTEM, WHEN THERE IS MORE 

589 THAN 1 SUBSYSTEM, BUT IT MAY AISO BE USED WHEN THERE IS JUS^ ONE 

590 SUBSYSTEM (TOTAL) , TO SPECIFY DRIVES TO TEST AND NON-DEFAULT 

391 PARAMETER VALUES, FOR PASS 2. THE PROGRAM IDENTIFIES ITSELF. AS 

392 FOLLOWS: 
593 

594 CZRMTBO - RM05/3/2 DRIVE COMPATIBILITY TEST 

595 

596 THE DIALOGUE FOR 210 START IS IDENTICAL TO THE DIALOGUE FOR THE 204 

397 START DESCRIBED ABOVE (SECTION 8.2), FOR THE SELECTION OF SUBSYSTEM 

398 PARAMETERS AND THE SPECIFICATION OF ALL DRIVES TO BE TESTED ON THE 

399 VARIOUS SUBSYSTEMS. HOWEVER, AFTER THIS DIALOGUE IS COMPLETED. THE 
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PROGRAM PROCECDS WITH PASS 2, AND DIRECTS THE OPERATOR IN THE MOVEMENT 
OF THE PACK, AS DESCRIBED IN SECTION 8.5. 

NOTE THAT SINCE THE APPROPRIATE PROCESSOR MUST BE STARTED AT THE 
STARTING ADDRESS FOR EACH SUBSYSTEM TO BE TESTED, THE COMPATIBILITY 
TEST MAY BE PERFORMED IN STEPS, AT VARIOUS TIMES AND BETWEEN VARIOUS 
DISTANT LOCATIONS. BY MOVING THE TEST PACK AND SAVING THE PRINTOUT 
FROM EACH PASS ON EACH PDP-11 SYSTEM INVOLVED. 



8.4 PASS 1 DIALOGUE 



AFTER THE SELECTION OF PARAMETERS AND DRIVES HAS BEEN COMPLETED ON THE 
CURRENT SUBSYSTEM (SECTIONS 8.1-8.2), THE PROGRAM INDICATES THE START 
OF PASS 1 AS FOLLOWS: 

** STARTING PASS 1 ON SU8SYS A 

NOTE: THAT SUB-SYSTEM 'A' IS ALWAYS THE f IRSJ SUB-SYSTEM TO BE TESTED 
RE6UARDLESS OF HOW MANY SUB-SYSTEMS ARE TO BE TESTED. 

NEXT. THE PROGRAM SELECTS THE FIRST DRIVE TO BE TESTED ON THIS 
SUBSYSTEM, AND INSTRUCTS THE OPERATOR TO MOUNT THE TEST CARTRIDGE AND 
LOAD THE HEADS ON THAT DRIVE, AS IN THE FOLLOWING EXAMPLE: 

MOUNT PACK ON DRIVE A2 AND LOAD. 
TYPE <CR> WHEN DRIVE READY. 

THE OPERATOR PERFORMS THIS TASK AND TYPES <CR> WHEN THE DRIVE IS READY. 
THE PROGRAM PERFORMS PASS 1 FUNCTIONS ON THIS DRIVE (SEE SECTION 9.1) 
AND THEN INSTRUCTS THE OPERATOR TO UNLOAD THE DRIVE AND REMOVE THE PACK 

AS FOLLOWS: 

UNLOAD DRIVE A2 AND REMOVE PACK. 
TYPE <CR> WHEN DONE. 

THE OPERATOR PERFORMS THESE FUNCTIONS AND TYPES <CR> AFTER THE PACK 
HAS BEEN REMOVED. 

IN THE SAME MANNER, THE PROGRAM INSTRUCTS THE OPERATOR IN THE MOVEMENT 
OF THE PACK THROUGHOUT THE REST OF THE DRIVES ON THE CURRENT 
SUBSYSTEM. WHEN THIS HAS BEEN COMPLETED, THE FROGRAM DOES ONE OF 
THREE THINGS; (1) IF THERE IS ONLY ONE SUBSYSTEM (FROM ADR 200 
START) THE PROGRAM BEGINS PASS 2 (SEE SECTION 8.5). (2) IF THERE 
IS ANOTHER SUBSYSTEM, THE PROGRAM DIRECTS THE OPERATOR TO PERFORM 
PASS 1 ON THE NEXT SUBSYS AS FOLLOWS: 

** STARTING PASS 1 ON SUBSYS B 

(3) IF THERE ARE NO MORE DRIVES TO TEST IN PASS 1 ON ANY SUBSYS. THE 
PROGRAM DIRECTS THE OPERATOR TO BEGIN PASS 2 ON THE FIRl>r SUBSYS (SEE 
SECT. 8.5) AS FOLLOWS: 



•* STARTING PASS 2 ON SUBSYS A 



CZRMTBO RM05/3/2 DR CM^T TST 



M 1 

MACRO V04.00 4-APR-81 18:12:15 PAGE i-8 



SEO 001. 



258 NOTE: THAT SU3-SrSTEM 'A' IS ALWAYS THE FIRST SlB-SVSTEM TO BE TESTED 

459 REGARDLESS OF HOW MANY SUB-SYSTEMS ARE TO BE TESTED. 

A60 
461 

463 8.5 PASS 2 DIALOGUE 

465 THE OPERATOR RETURNS TO THE FIRST SUBSYSTEM TO PERFORM PASS 2 EITHER 

466 THROUGH THE DIALOGUE OF THE ADR 200 START, OR AFTER THE SELECTION OF 

467 PARAMETERS AND DRIVES HAS BEEN COMPLETED IN ACCORDANCE WITH THE 

468 DIALOGUE OF THE ADR 210 START (SEE SECTION 8.3). IN EITHER CASE, THE 

469 PROGRAM INDICATES THE START OF PASS 2 BY TYPING: 
A 70 

471 »* STARTING PASS 2 ON SU8SYS A 

472 

473 THE PROGRAM THEN DIRECTS THE OPERATOR IN THE UNLOADING, PACK MOVEMENT, 

474 AND LOADING OF ALL DRIVES ON iHE FIRST SUBSYSTEM, IN THE SAME MAWER 

475 AS DESCRIBED FOR PASS 1 (SEE SECTION 
476 

477 HOWEVER, AFTER PASS 2 TESTING (SEE SECTION 9.2) IS CO^IPLETED ON A 

478 GIVEN DRIVE, THE ENTIRE TEST RESULTS FOR THAT DRIVE ARE TYPED. THE 

479 DETAILS OF THIS PRINTOUT ARE DESCRIBED IN SECTION 10. AFTER THE 

480 DETAILS OF THE TESTING ARE DESCRIBED. 
481 

482 WHEN PASS 2 HAS BEEN COMPLETED FOR ALL DRIVES ON THE FIRST SUBSYSTEM, 

483 THE PROGRAM DOES ONE OF TWO THINGS: (1) IF THERE IS ONLY ONE 

484 SUBSYSTEM (FROM ADR 200 START) OR IF ALL DRIVES ON ALL SUBSYSTEMS HAVE 

485 BEEN TESTED IN PASS 2 (FROM ADR 210 START), THE ENTIRE TESTING AND 

486 REPORTING HAVE BEEN COMPLETED, AND THE PROGRAM TYPES: 
487 

488 TEST COMPLETE 

4g9 *»»•»•••»**•♦•• 

490 

491 (2) IF THERE IS ANOTHER SUBSYSTEM, HOWEVER, THE PROGRAM DIRECTS THE 

492 OPERATOR TO PERFORM PASS 2 ON THE NEXT SUBSYSTEM AS FOLLOWS: 
493 

494 STARTING PASS 2 ON SUBSYS B 

495 

496 

497 

498 9.0 DESCRIPTION OF TESTS 

499 

500 THE MAIN FUNCTIONAL BLOCKS OF CODE IN THE PROGRAM ARE / .GNED TEST 

501 NUMBERS, FOR THE PURPOSE OF IDENTIFICATION IN ERROR PRINTOUT'". TEST 0 

502 REFERS TO THE OPERATOR INPUT DIALOGUE ROUTINES DESCRIBED IN SECTIONS 

503 8.1-8.3. THE OTHER TEST NUMBERS ARE ASSIGNED BELOW, IN THE 

504 DESCRIPTION OF PASS 1 AND PASS 2 TESTING. 

506 IN THE FOLLOWING SECTIONS, TABLES A-G ARE REFERRED TO. IN THESE 

507 TABLES. DRIVES ARE NAMED FROM 0-7 FOR ILLUSTRATIVE PURPOSES. ALTHOUGH 

508 THE DRIVES ARE NAMED THE FOLLOWING WAY IN AN ACTUAL SITUATION: 
S09 

510 A0,A1, A2,...B0,81.B2,...C0,C1.C2,... ETC. (SEE SECTION 8.0) . 

511 

512 

513 
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5U 9.1 DESCRIPTION OF PASS 1 TESTS 

515 

516 IN PASS 1. THE BASIC READ/WRITE CAPASILlTy OF EACH DRIVE IS 

517 DEMONSTRATED. AND COMPATIBFLI TV DATA PATTERNS ARE WRITTEN BY ALL 

518 DRIVES UPON THE SAME TEST CARTRIDGE. 
519 

520 THE SEQUENCE OF OPERATIONS PERFORMED ON EACH DRIVE IS AS FOLLOWS: 

521 

522 1. TEST 1 - MOUNTING OF TEST CARTRIDGE FOR PASS 1 - THE 

523 OPERATOR "COUNTS THE PACK ON THIS DRIVE AND MANUALLY LOADS THE 

524 HEADS, AS DIRECTED BY THE PROGRAM (SEE SECTION 8. A), 
525 

526 2. TEST 2 - BASIC READ/WRITE DATA TEST - THE PROGRAM PERFORMS 

527 A WRITE AND WRITE CHECK OPERATION USING A 'VfORST CASE" DATA 

528 PATTERN, AT THE APPROPRIATE SECTOR FOR THIS DRIVE (SEE 

529 TABLE A) ON ALL SURFACES. THE PURPOSE OF THIS OPERATION IS 

530 TO VERIFY THE BASIC READ/WRITE CAPABILITY OF THE DRIVE ON 

531 PASS 1. THE ENTIRE SECTOR IS WRITTEN WITH THE REPETITION OF 

532 THE DATA PATTERN SHOWN IN TABLE B. 
533 

53A 3. TEST 3 - THE PROGRAM WRITES ALL SECTORS FOR THIS 

535 DRIVE WITHIN THE CYLINDER BLOCKS SHOWN IN TABLE C ON ALL 

536 SURFACES USING A SINGLE REPEATED WORD OF THE PATTERN IN 

537 TABLE G. DRIVE 0 USES WORD 0, DRIVE 1 USES 

538 WORD 1. DRIVE 7 USES WORD 7. ETC. THUS, THE DATA 

539 FROM EACH DRIVE IS UNIQUE. TABLE C HAS BEEN DETERMINED AS 

540 FOLLOWS: 
541 

542 IN EACH OF THE SEVEN WRITE CURRENT ZONES ON EACH SURFACE, 

543 SECTORS ARE WRITTEN WITHIN TWO DISTINCT CYLINDER BLOCKS. 

544 THE FIRST 16 CYLINDERS OF EACH WRITE CURRENT ZONE 

54b IS THE FIRST BLOCK USED FOR WRITE TEST IN PASS 2. THE LAST 

546 16 CYLINDERS OF EACH CURRENT 

547 ZONE (EXCEPT THE INNERMOST ZONE) IS THE SECOND BLOCK 

548 USED FOR READ TEST IN PASS 2. 

549 WITHIN EACH CURRENT ZONE, THESE TWO BLOCKS ARE IDENTICALLY 

550 WRITTEN. HOWEVER. THE SECTORS DESIGNATED TO EACH DRIVE 

551 ARE ROTATED FROM ZONE TO ZONE SO THAT THE 

552 DATA APPEARS AT VARIOUS ANGULAR POSITIONS ON THE PACK. 
553 

554 WITHIN EACH CYLINDER BLOCK. UP TO 32 SECTORS ARE WRITTEN 

555 (DEPENDING ON THE NLMBER OF DRIVES BEING TESTED) ON EACH 

556 CYl INDER. 
557 

558 THE BASIC LAYOUT OF A TYPICAL CYLINDER BlOCK iS SHOUW IN 

559 TABLE D. WHERE THE BLOCK SHOWN IS THE READ TEST BLOCK FOR 

560 ZONE 1, WHICH STARTS ON CYLINDER 112, AND HAS THE ROTATING 

561 STARTING SECTOR = SECTOR 0. EACH NUMBER INSIDE THE BLOCK IS 

562 THE NUMBER OF THE DRIVE WHICH WRITES THAT SECTOR. TABLE D 

563 SHOWS THE BLOCKS WRITTEN BY EACH OF 16 DRIVES. IF ANY OF THE 

564 DRIVES SHOWN ARE NOT PRESENT. HOWEVER. THE BLOCKS RESERVED 

565 FOR THE MISSING DRIVES ARE SIMPLY NOT WRITTEN. 
566 

567 THE ABOVE PATTERN OF SECTOR WRITES INSURES THAT DATA FROM 

568 EACH DRIVE IS WRITTEN ON ADJACENT CYLINDERS TO DATA FROM 

569 EVERY OTHER DRIVE. IN BOTH DIRECTIONS. IN ADDITION. THE 

570 ROTATION OF THE ABOVE SECTORS FROM CURRENT ZONE TO CURRENT 



0 ooo^ 
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5/^ 

572 

575 

574 

575 

576 

577 

578 

579 

580 

581 

532 

583 

584 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

61? 

613 

6i4 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 



ZONE INSURES IHAT WRITE TEST AND READ TEST ARE 

DONE AT SEVERAL DIFFERENT ANGULAR POSiriONS WITH RESPECT TO 

THE CARTRIDGE. 

4. TEST 4 - DISHOUNTING OF TEST CARTRIDGE IN PASS 1 - THE 
OPERATOR UNLOADS THE DRIVE AND DISMOUNTS THE PACK, AS 
DIRECTED Br THE PROGRAM (SEE SECTION 8.^./, TO PROCEED WITH 
THE ABOVE STEPS ON THE NEXT DRIVE. 

9.2 DESCRIPTION OF PASS 2 TESTS 

IN PASS 2. THE ABlLlTr OF FACH DRIVE TO COMPLETELV OVERWRITE DATA 
WRITTEN BY ALL OTHER DRIVES AND TO READ DATA WRITTEN Br ALL OTHER 
DRIVES, IS TESTED. 

THE SEQUENCE OF OPERATIONS PERFORMED BY EACH DRIVE IS AS FOLLOWS: 

1. TEST 5 - MOUNTING OF TEST CARTRIDGE FOR PASS 2 - THE 
OPERATOR MOUNTS THE PACK ON THIS DRIVE AND MANUALLY LOADS THE 
HEADS, AS DIRECTED BY THE PROGRAM (SEE SECTION 8.5). 

2. TEST 6 - WR'TE TEST - NEXT. THE PROGRAM PROCEEDS TO 
TEST THIS DRIVE'S OVERWRITE CAPABILITY. FIRST, THE 
APPROPRIATE CYLINDERS IN TABLE E FOR THIS DRIVE ARE 
OVERWRITTEN. ON EACH SURFACE. THE DATA USED IS A REPETITION 
OF A SINGLE WORD OF THE PATTERN IN TABLE 6. DRIVE 0 

USES WORD 0, DRIVE 1 USES WORD 1. DRIVE 7 
USES WORD 7, ETC. 

THEN, EACH CYLINDER OVERWRITTEN IS READ BACK BY THIS DRIVE 
IN EACH OFFSET DIRECTION (♦ AND -). THE PROGRAM SCANS FOR 
READ ERRORS <DCK,HCRC,ETC.) DURING THIS READ, AND IF ONE 
OCCURS, THE PROGRAM DETERMINES WHICH DRIVE'S DATA HAS NOT 
BEEN CORRECTLY OVERWRITTEN. AM) A SCORE ^OR THAT DRIVE IS 
DECREMENTED. THEN, THE TRANSFER IS CONTINUED AT THE NEXT 
SECTOR, WITH THAT OFFSET VALUE. THE READS ARE DONE WITH ALL 
OF THE ABOVE OFFSETS APPLIED. AND A SEPARATE SCORE FOR EACH 
DRIVE IS KEPT. WHILE T^« CURRENT DRIVF IS PERFORMING THE 
OVERWRITES. FOR EACH TRACK , SCORES ARE AVERAGED OVER 
ALL CVLS TESTED, IN EACH OFFSET DIRECTION. AT THE COMPLETION 
OF THE OVERWRITE TEST ON THIS DRIVE. THE SCORES OF ALL THE 
DRIVES ARE CONVERTED AW) STORED. FOR PRINTING AT THE END OF 
PASS 2 (AS DESCRIBED IN SECTION 10.2). EACH SCORE 
PROPORTIONAL TO THE OFFSET IN A GIVEN DIRECTION BY THE CURRENT 
DRIVE WHILE 

SUCCESSFULLY READING THE DATA IT WROTE OVER ONE OF THE OTHER 
DRIVE'S DATA. THUS, THE PRINTOUT REVEALS WHICH DRIVES ARE 
INVOLVED, IN A SITUATION IN WHICH A DRIVE CATMOT OVERWRITE 
ONE OR SEVERAL OTHER DRIVE'S DATA. 

3. TEST 7 - DRIVE SELF-TEST - THE PROGRAM NEXT EVALUATES THE 
DRIVE'S ABILITY TO WRITE AND READ ITS OWN DATA, AT VARIOUS 
POSITIONS ON THE PACK. FIRST. ALL SECTORS OF THE 
APPROPRIATE CYLINDERS SHOWN IN TABLE F FOR THIS DRIVE ARE 
WRITTEN WITH THE DATA PATTERN SH(Mi IN TABLE B, FOR ALL 
SURFACES. THEN. THE SECTORS ARE READ WITH OFFSET 
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629 

630 

65^ 

652 

633 

65A 

635 

636 

637 

638 

639 

6A0 

641 

bU2 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

6«0 

681 

682 

683 

684 
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!N EACH DIRECTION. 

THE PROGRAM SCANS FOR READ ERRORS DURING EACH READ. AND IT 
COMPUTES A SCORE WHICH IS PROPORTIOML TO THE FAILING OFFSET. 
THEN. THE SCORES FOR ALL SECTORS READ IN THIS 
CYLINDER BLOCK ARE AVERAGED. TO COME UP WITH A DRIVE 
SELF-TEST SCORE FOR EACH SURFACE FOR EACH OFFSET DIRECTION. 
THIS SCORE IS SAVED FOR LATER USE. TO BECOME THE STANDARD FOR 
THE READS WHICH ARE TO FOLLOW. 

TESf lO(OCTAL) - COMPATieiLlTy DATA READ TEST - HAVING ESTABLISHED 
A SELF-TEST SCORE FOR THIS DRIVE. THE PROGRAM PROCEEDS TO 
PERFORM THE COMPATiBILITV DATA READS OF THE PATTERNS WRITTEN 
BV ALL THE DRIVES IN EACH CYLINDER BLOCK (ON EACH SURFACE). 
EACH COMPATIBILITY CYLINDER BLOCK SHOWN IN TABLE C IS READ. A 
CYLINDER AT A TIME IN EACH OFFSET DIRECTION. 
THE PROGRAM SCANS 

FOR READ ERRORS DURING EACH READ AND IF ONE OCCURS. THE 
PROGRAM DETERMINES WHICH DRIVE'S DATA WAS BEING READ AT THAT 
INSTANT AND A SCORE FOR THAT DRIVE IS DECREMENTED. THEN. THE 
TRANSFER IS CONTINUED AT THE NEXT SECTOR, WITH THAT OFFSET 
VALUE. THE READS ARE DONE WITH OFFSETS IN EACH DIRECTION. 
AND A SEPARATE SCORE FOR EACH DRIVE IS KEPT. WHILE 
THE CURRENT DRIVE IS READING THE COMPATIBILITY DATA. THEN. 
EACH SCORE IS APPROPRIATELY ADJUSTED TO REFLECT THE SELF-TEST 
SCORE FOR THE CURRENT DRIVE AT THAT PARTICULAR CYLINDER 
BLOCK. THE SCORES ARE THEN AVERAGED OVER ALL CYLINDER 
BLOCKS. EACH SCORE IS PROPORTIONAL TO THE CAPABILITY Of THE 
CURRENT DRIVE TO SUCCESSFULLY READ THE DATA V^ITTEN BY ONE OF 
THE OTHER DRIVES. AND SCORES ARE COMPUTED SEPARATELY FOR EACH 
SURFACE (TRACK). FOR EACH OFFSET DIRECTION. THUS. THE 
PRINTOUT REVEALS WHICH DRIVES ARE INVOLVED IN A SITUATION IN 
WHICH A PARTICULAR DRIVE HAS DIFFICULTY IN READING THE DATA 
Of ONE OR SEVERAL OTHER DRIVES. 

TEST 11 (OCTAL) - TYPE TEST SCORES AND DISMOUNT PACK IN PASS 2 - 
THE OVERWRITE AW COMPATIBILITY DATA READ TEST SCORES FOR 
THIS DRIVE ARE CONVERTED AND TYPED. THEN. THE OPERATOR 
UNLOADS THE DRIVE AND DISMOUNTS THE PACK AS DIRECTED BY THE 
PROGRAM (SEE SECTION 8.5). TO PROCEED WITH THE ABOVE STEPS ON 
THE NEXT DRIVE. 



10.0 PRINTOUT OF TEST RESULTS 

THE TEST RESULTS ARE PRINTED AT THE END OF PASS 2 ON EACH DR.'VE BEING 
TESTED. THESE RESULTS PERTAIN TO THE OVERWRITE TEST AND THE 
COMPATIBILITY DATA READ TEST. 



10.1 TEST RESULTS 

THE RESULTS Of BOTH THE OVERWRITE AND OF THE COMPATIBILITY DATA READ 
ARE PRINTED, REGARD Of DEGREE OF SUCCESS. If THE TEST IS SUCCESSfUL. 
THE MESSAGES: 
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685 ALL DRIVES ARE C0WPATI8LE 

686 

687 IS PRINTED. IF THE TEST IS FAILURE. THE TEST RESULTS 

688 ARE TABULAR IN FORM AS SHOWN. 
689 

690 IN THE FOLtOWiNG EXAMPLE. THERE ARE 2 SYSTEMS. AND THE DRIVES BEING 

691 TESTED ARE A0,A1,A2.B0, AND 85. THE 'EST RESULTS FOR DRIVE A1 ARE 

692 SHOWN BELOW: 
693 

694 SCORES FOR DRiVE A1 : 

695 

696 TRACK DRIVE OVRWRT OVRWRT READ READ 

697 NO. READ OFST- OFST* OFST- O'ST* 
698 

699 0 A2 * 0 • 0 

700 

701 THE ABOVE EXAMPLE REVEALS A POSSIBLE COMPATIBILITY PROBLEM EXISTS 

702 BETWEEN DRIVES A1 AND A2. NOTICE THAT ON TRACK 0, THAT THE OVERWRITE 

703 SCORES WERE UNACCEPTABLE LOW (0). AND THE PROGRAM NOTED THESE BAD SCORES 

704 WITH AN ASTERISK (•). ALL ACCEPTABLE TEST RESULTS ARE NOT PRINTED. 
705 

706 
707 

708 11.0 ERROR REPORTING 

709 

710 11.1 COMMON ERRORS 

711 

712 THE FOLLOWING IS A LIST OF COMMON ERROR MESSAGES WHICH ACCOMPANY ERROR 

713 TYPEOUTS FROM THE RM05/3/2 DRIVE COMPATIBILITY PROGRAM. THE ERRORS ARE 

714 SELF-EXPLANATORY, 

715 

716 ADDRESS PLUG CHANGE BIT SET 

717 

718 RH DIDN'T RESPOND TO ADDRESSING 

719 

720 l^CORRECTABLE MASSBUS PARITY ERROR 

721 

722 FATAL MASSBUS PARITY ERROR 

723 

724 PERSISTENT DEVICE UNSAFE 

725 

726 OPERATION NOT COMPLETED WITHIN TIME LIMIT 

727 

728 DRIVE WENT OFFLINE 

729 

730 NO RESPONSE TO PORT REQUEST 

731 

732 HEADER CRC ERROR 

733 

734 DATA CHECK 'DCK' ERROR 

735 

736 WRITE CHECK ERROR - DATA CHECK 'DCK' SET 

737 

738 WRITE CHCKE ERROR - DATA CHECK 'DCK* NOT SET 

739 

740 HEADER READ ERROR - 'FMT' BIT DROPPED 

741 
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7U2 

742 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 



HEADER READ ERROR - HEADER COMPARE 'HCE' ERROR 

FORMAT ERROR 'FER' 

HEADER COMPARE 'HCE' ERROR 

MISCELLANEOUS DRIVE ERROR 

OPERATION INCOMPLETE 'OPI' ERROR 

DRIVE TIMING 'DTE' ERROR 

PARITY 'PAR' ERROR AFTER OPERATION STARTED 
WRITE CLOCK FAILURE 'WCF ' ERROR 
INVALID ADDRESS 'lAE* ERROR 
WRITE LOCK 'WLE' ERROR 

DATA CHECK 'DCK* SET DURING WRITE CHECK COMMAND 

RH OR UNI8US TRANSFER ERROR 

BUS ADDRESS OR WORD COUNT INCORRECT 

DATA COMPARE ERRORS - NO OTHER ERROR(S) DETECTED 

CAN'T MATCH DATA READ WITH A PATTERN 

ERROR BiT(S) SET. BUT NO ERROR SIGNALED BY THE Rh 

ECC LOGIC FAILURE - POSITION REGISTER VALUE NOT VALID 

BUS ADDRESS AND WORD COUNT NUT CONSISTENT 

SEEK INCOMPLETE 'SKI* ERROR 

PROGRAM DETECTED POSITIONING ERROR 

DRIVE UNSAFE ERROR 

11.2 ERROR HANDLING 

ERRORS REPORTED BY THE PROGRAM CONSIST OF COMMON FAILURES RESULTING 
FROM ATTEMPTED SUBSYSTEM FUNCTIONS. AS WELL AS CERTAIN ERRORS UNIQUE 
TO PARTICULAR TESTS. EACH ERROR PRINTOUT CONSISTS OF AN ERROR 
DESCRIPTION AND TEST NUMBER. POSSIBLY FOLLOWED BY HEADER LINES. COLLWN 
HEADINGS, AND COLUMNS OF REGISTER CONTENTS IN OCTAL. ^S f^CH 
MEANINGFUL REGISTER DATA AS POSSIBLE (FOR EXAMPLE. RH/RM r ".STERS/ 
ARE REPORTED IN A GIVEN ERROR. OTHER ERROR REPORTS MAY CONSiS. OF A 
SINGLE DESCRIPTIVE LINE. 

n.3 ERROR PRINTOUT EXAMPLE 
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799 

800 

801 

802 

803 

804 

805 

806 

807 

808 

809 

810 

811 

812 

813 

8U 

815 

816 

817 

818 

819 

820 

821 

822 

823 

82A 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

85? 

854 

855 



RH OR UNJ8US TRANSFER ERROR 

DRIVE RMCS1 RMWC RMBA RMDA 

000001 K4250 174400 0055030 000431 



RMCS2 RMDS RMER1 RMAS RMD8 
000100 010700 000000 000000 000000 



Rm^^ rmdt rmof rmdc rw*? 

000050 024024 010000 000716 011777 



R«ER2 RMEC1 RMEC2 
000000 004066 000000 



12.0 TABLE DESCRIPTIONS 

12.1 TABLE A - BASIC READ/WRITE TEST SECTORS 

ADDRESS OF SECTOR ON EACH SURFACE 



DRIVE NO. 


CYLINDER 


SECTORS 


0 


620 


0 


1 


620 


1 


2 


620 


2 


3 


620 


3 


4 


620 


4 


5 


620 


5 


6 


620 


6 


7 


620 


7 


8 


620 


8 


9 


620 


9 


10 


620 


10 


11 


620 


11 


12 


620 


12 


13 


620 


13 


14 


620 


14 


15 


620 


15 



12.2 TABLE B - WORST CASE DATA PATTERN (REPEATS EVERY 16 WORDS) 
WORD NO. DATA (OCTAL) 



0 
1 

2 
3 
4 

5 



066666 
155554 
133331 
066663 
155546 
133315 
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856 

857 

858 

859 

860 

861 

862 

863 

86A 

865 

866 

8o7 

868 

869 

870 

871 

872 

873 

874 

87S 

876 

877 

878 

879 

880 

881 

882 

883 

884 

885 

886 

88/ 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

O08 

909 

910 

9M 

912 



6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



066633 
155466 
133155 
066333 
1 54666 
1315S5 
063333 
146666 
115555 
033333 



"2.3 TA8LE C - CYLINDER BLOCK ASSJGMIENT FOR A GIVEN SURFACE 



CURRENT 
ZONE - RANGE 



1 - CYL 0-127 

2 - 128-255 

3 - 256-383 

4 - 384-511 

5 - 512-639 

6 - 640-767 

7 - 768-822 



OVERWRITE CYL 
BLOCK RANGE 



CYL 0-15 

128-143 

256-271 

384-399 

512-527 

640-655 

768-783 



C0(«V>AT]8ILITY CYL 
BLOCK RANGE 



CYL 112-127 

240-255 

368-383 

496-511 

624-639 

752-767 



12.4 TABLE D - BASIC CYLINDER BLOCK LAYOUT EXAMPLE 



CVLNDER 
NUMBERS 



SECTOR NUMBERS 





0 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


112 


0 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


113 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


15 


14 


15 


0 


114 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


0 


1 


2 


115 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


0 


1 


2 


3 


4 


5 


116 


10 


11 


12 


13 


14 


15 


0 


1 


2 


3 


4 


5 


6 


7 


8 


9 


117 


15 


0 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


118 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


0 


1 


2 


3 


4 


119 


12 


13 


14 


15 


0 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


120 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


0 


1 


2 


3 


121 


13 


14 


15 


0 


1 


2 


3 


4 


5 


6 


7 


8 


q 


10 


11 


12 


122 


7 


8 


9 


10 


11 


12 


13 


14 


15 


0 


1 


2 


3 


4 


5 


6 


123 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


0 


1 

1 


124 


14 


15 


0 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


125 


11 


12 


13 


14 


15 


0 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


126 


9 


10 


11 


12 


13 


14 


15 


0 


1 


2 


3 


4 


5 


6 


7 


8 


127 


8 


9 


10 


11 


12 


13 


14 


15 


0 


1 


2 


3 


4 


5 


6 


7 




16 


17 


18 


19 


20 


21 


22 


23 


24 


25 


26 


27 


28 


29 


30 


31 



TZRMTBO RM05/3/? DR CNPT TST 



H 2 

MACRO V04.00 4-APR-81 18:12:15 PAGE 3- '6 





n 

V 


1 

( 


5 
c 


7 








7 




9 


10 


1 1 


1 p 


' 7 

J 


14 


1 5 




1 


> 


J 


H 


J 


Q 


7 


fi 

o 


0 


10 


1 1 

1 f 


IP 


1 7 


14 


1 5 






7 

J 




? 


o 


7 


a 

o 


Q 

T 


10 


1 1 




1 7 


K 


1 S 


0 


\ 


p 
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9 


10 


11 


12 


13 
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913 
914 
915 
916 
917 

918 
919 
920 
921 
922 
923 
924 
925 
9^6 
927 
928 
929 
930 
931 

932 12.5 TABLE E - OVERWRITE CYLINDERS 
935 

934 DRIVE # CYLINDERS OVERWRITTEN 

936 0 01128,256,3847512,640.768 

937 1 1,129,257.385,513,641,769 

938 2 2,130,258,386.514,642,770 

939 3 3,131.259,387,515.643,771 
9<,0 4 4,132,260.388.516,644.772 

941 5 5,133,261.389,517,645,773 

942 6 6,134,262,390,518,646.774 

943 7 7.135,263,391,519,647,775 
94*. 8 8,136,264,392,520.648,776 

945 9 9.137,265.393.521,649,777 

946 10 10,138,266,394,522.650,778 

947 11 11,139,267,395,523.651.779 

948 12 12.140,268,396,524,652.780 

949 13 13.141.269.397.525.653,781 

950 14 14,142.270.398,526.654.782 

951 15 15,143,271,399.527.655,783 
952 

953 
954 

955 12.6 TABLE F - SELF-TEST CYLINDERS 
956 

957 DRIVE # CYLINDERS 

959 0 17J 457273,401. 529. 65 7. 785 

960 1 18.146.274.402.530.658.786 

961 2 19,147,275,403,531.659.787 
%2 3 20.148.276.404,532.660.788 

963 4 21.149.277.405.533.661.789 

964 5 22.150.278,406,534,662.790 

965 6 23.151.279.407.535.663.791 

966 7 24,152.280.408.536.664,792 

967 8 25.153.281.409.537.665.793 

968 9 26.154,282.410.538.666.794 

969 10 27.155.283.411,539,667.795 
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970 
971 
9.2 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
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£0 002' 



11 
12 
13 
14 
15 



28.156.284.412.540.668,796 
29.157.285.413.541.669.797 

30.158.286.414.542,670.798 
31.159.287.415.543.671.799 
32.160.288.416.544.672.800 



12.8 TABLE G - PSEUDO-RANDOM DATA PATTERN 



WORD M 

0 

1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 



DATA (OCTAL) 

040135 

177070 

070414 

064S31 

174473 

062422 

114352 

036620 

010031 

052336 

017310 

011347 

102367 

152567 

001246 

160073 



13.0 RM SOFTVMRE DRIVER DOCUMENT 

THIS DOCUMENT IS THE USER'S GUIDE ^OR THE RM DRIVER. 
TO INITIALIZE THE DRIVER: 



13.1 



JSR 

RETURN 



PC.RMINIT 



UPON RETURN YOU MUST EXAMINE THE 'DRVSTA'" TABLE TO DETERMINE 
THE DRIVES THAT ARE ONLINE FOR TESTING. THE 'DRVSTA' TABLE IS 
EIGHT BYTES; ONE BYTE PER DRIVE. THE STATE OF EACH DRIVE WILL 
BE INDICATED AS FOLLOWS: 



DRVSTA 



>0 
=0 



<0 



DRIVE STATE 



ONLINE 

OFFLINE. DRIVE 

IS NOT AN RM05/3/2, OR 

NONEXISTENT DRIVE 

UNSAFE 



THE DRIVE TYPE IS DEFINED IN AN 8 BYTE LONG TABLE TAGGED "DRVTYPV 
THE TABLE CONTAINS ONE BYTE FOR EACH DRIVE AND IS INDEXED BY THE 
DRIVE NUMBER. ENTRIES ARE ENCODED AS FOLLOWS: 
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SEO 0022 



>\JC' 
















CONDITION 
























0 




NONEXISTENT DRIVE 




5 




RM02 






4 




RM03 






7 




RM05 






-1 




NOT AN RM05/3/2 


10% 












THE 'RMINIT' ROUTINE 


WILL DO A READIN PRESET AND WILL SET FMT16. 












10^9 


13.2 AFTER THE DRIVER HAS 


BEEN INITIALIZED, IT IS CAL.ED USING THE 


1040 


FOLLOWING SEQUENCE. 






1(K1 












CALL: 








104? 


JSR 


R0.RM05 


MAKE THE CALL 


1044 


PNTDP8 






ADDRESS OF DPS* 


1045 


RETURNI 






RETURN IF QUEUE IS FULL 


1046 


RETURN2 






RETURN IF REQUEST IS IN 


1047 








■QUEUE OR THERE IS AN 


1C48 








■ERROR CONDITION 


1049 










1050 


•DPB (DATA PARAMETER BLOCK) 




1051 










1052 


PNTDPB: .8YTE 


0 




■(0) DRIVE NUMBER 


1053 


.8VTE 


0 




■(1) OFFSET VALUE OR FMT16, ECT, 


1054 


.BYTE 


0 




;(2) COMMAND 


1055 


.8YTE 


0 




■(3) PSEL AND A17 AND A16 


1056 


.WORD 


0 




•(4) WORD COUNT (MUST BE NEG.) 


1057 


.WORD 


0 




;(6) BUFFER ADDRESS OR 


1058 








•REGISTER TABLE POINTER 


1059 


.BYTE 


0 




(10) SECTOR ADDRESS OR 


1060 








•FIRST REG. INDEX 


1061 


.BYTE 


0 




(11) TRACK ADDRESS OR 


1062 








•LAST REG. INDEX 


1063 


.WORD 


0 




;(12) CYLINDER ADDRESS 


1064 


.WORD 


0 




r(14) ERROR TABLE POINTER 


1065 








;POINTS TO THE FIRST OF TWENTY 


1066 








:LOCATIONS OF WHERE THE DRIVER 


1067 








;IS TO STORE THE RH/RM 


1068 








iREGISTERS ON AN ERROR. IF LEFT 


1069 








•ZERO REGISTERS ARE NOT SAVED. 


1070 


.WORD 


0 




;(16) STATUS/ERROR INDICATOR 


1071 








r8IT15=1=>ERR0R OCCURRED 


1072 








;BIT07=1=>D0Ne 


1073 








;BIT14-eiT09 AND BIT06-6IT03 


1074 








; INDICATE TYPE OF ERROR 


1075 










1076 


13.3 THE DRIVER PROVIDES 


A SOFTWARE TIMEOUT CAPABILITY. 


1077 


TO UTILIZE THIS 


CAPABILITY YOU MUST SUPPLY THE "W TIMER" ROUTINE 


1078 


WITH THE ELAPSED TIME IN THE FOLLOWING MANNER: 


1079 










1080 


MOV 


#16. 


.-(SP> 


;16 MILLISECONDS BETWEEN 


1081 








•CLOCK TICKS 


^082 


JSR 


PC.RMTMR 


;CALL THE TIMER ROUTINE 


1083 
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10W 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1095 

109A 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1105 

nOA 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

11K 

111!) 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1150 

1151 

1152 

1155 

1134 

1155 

1156 

1157 

1158 

1159 

1K0 
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IT SHOULD BE NOTED THAT YOU MUST PROVIDE THE CODE TO DRIVE THE 
CLOCK. AND THE ELAPSED TIME MUST BE IN MILLISECONDS. 
THE DRIVER WILL SET THE TIMEOUT TO 1 SECOND FOR ALL POSITIONING 
AND DATA TRANSFER OPERATIONS AND WILL SET THE TIMOUT TO 30 
SECONDS FOR ERROR RECOVERY OPERATIONS. 



SFO 0023 



13.4 



EX,V1PLE - WRITE 1000. WORDS 
R0.RM05 



1$; 
2$: 



WRTDP8: 



JS'i 

WRTDPB 
BR 
TST 
BEQ 
BMI 



• BYTE 
.BYTE 
•BYTE 
.BYTE 
.WORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 



1$ 

WRTDPB* 16 
2S 

ERR0R1 



5 
0 

161 
0 

-1000. 
WRTBUF 
3 
5 

400 

ERRTd5 

0 



ALTERNATE DP8 SETUP 



13.5 



WRTDPB: .WORD 
.WORD 
.WORD 
.WORD 
.BYTE 
.WORD 

RH/RM REGISTERS 

MNEMONIC 



5 

WRITE 
-1000. 
WRTBUF 
3,5 

4OO.ERRT85,0 



RMCS1 

RMWC 

RMBA 

RMDA 

RMCS2 

RMDS 

RMER1 

R/1AS 

RMLA 

RMDB 

RMMR1 

RMDT 



;CALL THE DRIVER 

;DPB ADDRESS 

;WAIT FOR QUEUE IF FULL 

.•WAIT FOR COMMAND TO COMPLETE 

.•ERROR OCCURRED 



DRIVE ffS 

WRITE COMMAND 

WORD COUNT 
BUFFER ADDRESS 
SECTOR 
TRACK 
CYLIWER 
ERROR TABLE 

STATUS/ERROR INDICATOR 



THIS SETUP ACHIEVED 
EVERYTHING THE 
ABOVE TABLE DID. BUT 
IN A CLEANER FORMAT 



INDEX 



0 
2 
4 
6 
10 
12 
14 
16 
20 
22 
24 
26 
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SEO 



1141 


RMSN 


30 






1 142 


RMOF 


32 






1143 


RMDC 


34 






144 


RMHR 


36 






1145 


RWR2 


40 






1146 


RMER2 


42 






1147 


RMEC1 


44 






148 


RMEC2 


46 






149 










150 


13.6 COMMANDS PERFORMED BY THE DRIVER 






151 










152 


COMMAND 


CODE 




COMMAND TYPE 


1153 










154 




105 






155 


SEEK 




P 


156 


RECALIRATE 


107 




P 


157 


DRIVE CLEAR 


111 




N 


I15A 


RELEASE 


113 




N 


159 


OFFSET 


115 




P 


1160 


RETURN TO CENTER 


117 




P 


161 


READIN PRESET 


121 




N 


162 


PACK ACKNOWLEDGE 


123 




N 


163 


SEARCH 


131 




P 


164 


GET REGISTER(S) 


141 




S 


165 


SET FORMAT 


143 




S 


166 


SELECT DRIVE 


145 




s 


167 


WRITE CHECK DATA 


151 




D 


168 


WRITE CHK HEADER & DATA 


153 




D 


169 


WRITE DATA 


161 




D 


1170 


WRITE HEADER t DATA 


163 




D 


1171 


READ DATA 


171 




D 


172 


READ HEADER t DATA 


173 




D 


173 










174 










175 


N = HOUSEKEEPING 








176 


P = POSITIONING 








177 


D = DATA TRANSFER 








178 


S = SPECIAL PROVIDED BY 


THE DRIVER 






179 










180 


13.7 DPS STATUS/ERROR INDICATOR LORD 








181 










182 


THIS INDICATOR WII L INFORM THE 


USER OF THE 


RESULTS OF THE REQUEST. 


1183 


THIS IS ACCOMPLISHED BY SETTING 


VARIES BITS 


OF 


THE INDICATOR TO 


1184 


A ONE. 








185 




IF ON A "V 






186 


BIT NO. MEANING 






1187 










1188 










189 


15 ERROR OCCURRED 






190 


DONE 


(8IT07=0); BITS 


14-9 SPECIFIES TYPE 


1191 


DONE 


(8IT07=1); BITS 


6-3 SPECIFIES TYPE 


1192 










1193 


U(1) USER MADE A REQUEST 


FOR 


A FUNCTION TO BE 


1194 


PERFORMED ON AN OFFLINE 


OR UNSAFE DRIVE 


1195 










1196 


13(1) USER MADE A REQUEST 


FOR 


A FUNCTION 


1197 


TO BE PERFORMED ON 


A DRIVE THAT HAS AN 
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1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

12U 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 



UNLOAD REQUEST IN QUEUE. 

12(2) PERSISTENT UNSAFE CONDITION EXIST. 

11(2) UNCORRECTABLE PARITY ERROR OCCURRED 

10(2) (4) FATAL PARITY ERROR. A MASS8US CLEAR WAS 

PERFORMED, ALL QUEUES WERE EMPMED. MiO 
ALL DRVACT'S SET TO THF IDLE STATE 

9(3) (4) SOFTWARE TIMEOUT OCCURRED ON THIS DRIVE 

8(4) SOFTWARE TIMEOUT OCCURRED ON ANOTHER DRHE 

7 DONE 

6(2) ERROR OCCURRED DURING AN I/O OPERATION 

5(2) ERROR OCCURRED DURING AN OPERATION 

OTHER THAN I/O. 

4(2) CORRECTABLE UNSAFE CONDITION OCCURRED 

3(2) DRIVE ERF?OR OCCURRED THAT CAUSED AN 

AUTOMATIC "WCALIBRATE" SEQUENCE 

2 PORT REQUEST TIMEOUT. THE DRIVER REQUESTED 

THE DRIVE BL'T THE OPPOSITE PORT DID NO' 
RELEASE THE DRIVE WITHIN 15. SECONDS. 

1 NON-EXISTENT DRIVE REQUESTED. USER MADE 

A REQUEST FOR A NON-EXISTENT DRIVE. 

NOTES FOR ABOVE 



(1) = 



(2) 



(3) = 



(4) = 



REQUEST WASN'T PUT IN QUEUE. 
REGISTERS WERE NOT SAVED) 



(RH/RM 



REQUEST Ol^l* HAS BEEN EMPTIED. THE DRIVER 
ISSUED A 'DRIVE CLEAR" TO THE DRIVE. 
NOTE; ALL RH/RM REGISTERS ARE SAVED 
AS PER DPB+14 BEFORE THE 'WIVE CLEAR". 

REQUEST QUEUE HAS BEEN EMPTIED. THE 
DRIVER ISSUED A MASSBUS INIT. ALL 
RH/RM REGISTERS FOR THE DRIVE WERE 
SAVED AS PER DPB«14 BEFORE THE INIT. 

A 'T^ECALIBRATE" SHOULD BE ISSUED 
BEFORE ANY OTHER COMMAND. 



13.8 ERROR CALLS MADE BY THE DRIVER. 

THERE ARE A FEW ERRORS THAT lAN OCCUR THAT CAN NOT BE INDICATED IN A DPB. 



0013 
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1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

127A 

1275 

1276 

1277 

1278 

1279 

1280 

1281 

1282 

1283 

1284 

1285 

128t> 

1287 

1288 

1289 

1290 

1291 

1292 

1293 



N 2 
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WHEN THIS TVPE OF ERROR IS DETECTED BY THE DRIVER IT WILL MAKE 
AN ERROR CALL OF THL FORM 'tRROR N", WHERE "N" IS THE ERROR 
NUMBER AND THE ERROR WILL BE AN EMT INSTRUCTION, 



,£Q 0026 



1 
2 



3 
4 



TVPE 



RH70 INTERRUPT 
OCCURRED (RHAS=0) 

UNEXPECTED ATTENTION 
OCCURRED 



MASSBUS PARiry 
ERROR (MCPE=1) 

MASSBUS PARITY 
ERROR {PAR=1) 



ADDRESS PLUG CHANGE 
BIT SET COPE' ERROR) 



DATA AVAILABLE 



•R4= RMCSrS ADDRESS 



R1= DRIVE NUMBER 
R3= ATA BIT 
•R4= RMCS1 'S ADDRESS 
R5= (RMAS) 
RMERRS =RMDS 
RMERRS*2=RMER1 
RMERRS*4=RM£R2 
RMERRS*6=RMMR2 

RD.ADR= ADDRESS OF REG. 
RD.yRD= WORD READ 



READ 



WRT.AD= ADDRESS OF REG. WRITTEN 
WRT.WD= WORD WRITTEN 
RD.URD= WORD READ BACK 

Rl= DRIVE NUMBER 
R3= ATA BI T 
•R4= RMCSrS ADDRESS 
R5= (RMAS) 
RMERRS =RMDS 
RMERRS*2=RMER1 
RMERRS+4=RMER2 
RnERRS*6=RMnR2 



• THIS IS THE ACTUAL UNJ8US ADDRESS (176700) 
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OOU 



S£Q 0027 



1 

53 
54 



55 



56 
57 
58 



001100 
104000 
000004 



00001 1 
000012 
000015 
000200 
1 77776 
1 77776 
^7777k 
1 77772 
1 77570 
177570 



000000 
000001 
000002 
000003 
000004 
000005 
000C06 
000007 
000006 
000007 



;*LAST REVISION 04-APR-81 

ITLE CZRMT80 Rf105/3/2 DR CMPT TST 
COPYRIGHT (C) 1981 
DIGITAL EQUIPMENT CORPORATION 
COLORADO SPGS.. CO. 80919 

PROGRAM BY MIKE LEAVITT 

THIS PROGRAM WAS ASSEMBLED USING THE PDP-II MAINDEC SYSMAC 
PACKAGE (MAINDEC-11-DZQAC-C5), 18-MAR-81 

S8TTL OPERATIONAL SWITCH SETTINGS 



SWITCH 

15 
U 
13 
12 
11 
10 

9 

8 

7 



USE 



HALT ON 
LOOP ON 
INHIBIT 
INHIBIT 
INHIBIT 
BELL ON 
LOOP ON 
LOOP ON 
TYPE THE 



ERROR 
TEST 

ERROR TVPEOUTS 

TRACE TRAP 

ITERATIONS 

ERROR 

ERROR 

TEST IN SWR<7:0> 
BAD SECTOR FILE 



.S8TTL BASIC DEFINITIONS 



.••INITIAL ADDRESS OF THE STACK POINTER 1100 

STACK =1100 

ERROR = EMT ;;8ASIC DEFINITION OF ERROR CALL 

SCOPE = lOT ;;8ASIC DEFINITION OF SCOPE CALL ' 

.■•MISCELLANEOUS DEFINITIONS 

HT =11 ;;CODE FOR HORIZONTAL TAB 

LF = 12 .-.-CODE FOR LINE FEED 

CR =15 ;;CODE FOR CARRIAGE RETURN 

CRLF = 200 ;;CODE FOR CARRIAGE RETURN-LINE FEED 

PS = 177776 ;. -PROCESSOR STATUS WORD 

PSW=PS 

STKLMT = \7777'* ; .-STACK LIMIT REGISTER 

PIRQ = \7n72 ; .-PROGRAM INTERRUPT REQUEST REGISTER 

DSUR = 177570 .-.-HARDWARE SWITCH REGISTER 

DDISP = 177570 ;; HARDWARE DISPLAY REGISTER 

.••GENERAL PURPOSE REGISTER DEFINITIONS 

RO - XO ;; GENERAL REGISTER 

R1 - ;; GENERAL REGISTER 

R2 - XI ;; GENERAL REGISTER 

R3 - X3 ;; GENERAL REGISTER 

R4 - X4 ;; GENERAL REGISTER 

R5 - X5 ; .-GENERAL REGISTER 

R6 - X6 ; .-GENERAL REGISTER 

R7 X7 .-.-GENERAL REGISTER 

SP - X6 .-.-STACK POINTER 

PC - X7 .-.-PROGRAM COUNTER 



C7RMTB0 DR LMPT 

BASIC DEFINITIONS 



000000 
000040 
000100 

ooouo 

000200 
000240 
000300 
000340 



100000 
040000 
C20000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
000400 
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c 

PAGE 



3 

4-1 



SCO 0028 



•PRIORITY LEVEL 



PRO 
PR! = 
PR2 = 
PR3 = 
PR4 
PRS 
PR6 

PR7 = 

.-•"SWITCH 

SW1 5 

SW14 

SW13 

SW12 

SW11 

SWIO = 

SW09 

SWOB 

SW07 = 
SW06 
SW05 
SW04 

SW03 = 
SW02 
SW01 
SWOC 

SW9=SW09 
SW8=SW08 
SW7=SW07 
SU6=SW06 
SW5=SW05 
SU4=SW04 
SU3=SW03 
SW2=SW02 
SW1=SW01 
SU0=SW00 



0 
40 
100 
140 
200 
240 
500 
340 



DEFINITIONS 

; .-PRIORITY LEVEL 0 
;. -PRIORITY LEVEL 1 
;, -PRIORITY LEVEL 2 
.-.•PRIORITY LEVEL 3 
.-;PRI0RITY LEVEL 4 
;. -PRIORITY LEVEL 5 
.-.-PRIORITY LEVEL 6 
.-.-PRIORITY LEVEL 7 



REGISTER" 

100000 

40000 

20000 

10000 

4000 

2000 

100C 

400 

200 

100 

40 

20 

10 

4 

2 

1 



SWITCH DEFINITIONS 



; *DATA 
BIT15 
BJTU 

Bni3 

BIT12 
BITII 
BIT10 
BIT09 
BITOB 
Bn07 
BIT06 
Bn05 
BJT04 
BIT03 
BIT02 
B1T01 
BITOO 
BIT9=8IT09 
BIT8=8IT08 



BJT DEFINITIONS 
= 100000 
= 40000 
= 20000 
= 10000 
= 4000 
= 2000 
= 1000 
= 400 
= 200 
= 100 
= AO 
= 20 
= 10 
= 4 
= 2 
= 1 



(BITOO TO BIT15) 



CZRMTBO RM05/3/2 DR CMPT TST 
BASIC DEFINITIONS 

000200 
000100 
OOOOAO 
000020 
000010 
000004 
000002 
000001 



000004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000240 

59 
60 
61 
62 
63 



64 000016 

65 000020 

66 000022 

67 000024 

68 000026 

69 000030 

70 000032 

71 000034 

72 000036 

73 000040 

74 000042 

75 000044 

76 000046 

77 000050 

78 000052 

79 000054 

80 000056 

81 000060 

82 000062 

83 000064 

84 000066 
85 

86 
87 

88 000101 

89 000105 

90 000107 

91 0001 1 1 

92 0001 1 3 

93 000115 



fWCRO V04.00 



BIT7= 
BIT6= 
BIT5= 
BIT4: 
BIT3: 
B1T2: 
BlTl: 
81 TO: 
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81107 
SI T06 
81105 
Bl T04 

:8IT03 

=8IT02 
flITOI 
flITOO 



SEQ 0029 



OTHER ERRORS 
ILLEGAL INSTRUCTIONS 



••SCOPE** 



.••BASIC "CPU" TRAP VECTOR ADDRESSES 

ERRVEC = 4 ;;TiME OUT AND 

RESVEC = 10 ;; RESERVED AND 

TBITVEC = 14 ;;"T" BIT 

TRTVEC 14 ;; TRACE TRAP 

BPTVEC = 14 ;. -BREAKPOINT TRAP (8PT) 

lOTVEC = 20 ;; INPUT/OUTPUT TRAP (lOT) 

PURVEC = 24 ; .-POWER FAIL 

EMTVEC = 30 ;. -EMULATOR TRAP (EMT) ••ERRORS* 

TRAPVEC = 34 ;;'7RAP" TRAP 

TKVEC = 60 ;;TTV KEySOARD VECTOR 

TPVEC =64 ;;TTY PRINTER VECTOR 

PJROVEC = 240 ; .-PROGRAM INTERRUPT REQUEST VECTOR 

.S8TTL RM REGISTERS 

.•INDEX Oh STATUS AND REGISTER WORDS RELATIVE TO FMTDP8 



STATUS 




16 


SRMCSI 




$TATUS*2 


SRMWC 




MMCSU2 


SRNBA 




$RMWC*2 


SRMDA 




SRMBA^2 


SRMCS2 




SR«DA*2 


SRWS 




SW1CS2+2 


$RHER1 




$R«DS*2 


SRMAS 




$«MER1*2 


SRMLA 




$RMAS*2 


SfmB 




$RMLA*2 


SRMMRI 




SRMD8+2 


SRMDT 




SRMMR1+2 


SRMSN 




$RMDT*2 


fRMOF 




lRMSN+2 


SRMDC 




SRMOf +2 


SRMHR 




$RMDC*2 


$R«MR2 




$RMHR*2 


SRnER2 




$RMMR2*2 


SRMECI 




$RMER2*2 


SRnEC2 




$RMEC1*2 


.S8TTL 


RM DRIVER COMMANDS 


RNOP 




101 


SEEK 




105 


RECAL 




107 


ORVCLR 




111 


RELSE 




113 


OFFSET 




115 



NO OPERATION 
SEEK 

RECALIBRATE 
DRIVE CLEAR 
RELEASE 
OFFSET 



CZWTBO Wi05/B/2 DR CMPT 
m DRIVER COMMANDS 
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9i, 

95 
% 
97 
98 
99 
TOO 
101 
102 
^03 
104 
105 
106 
107 
108 
109 
110 



OOOIV 
0001 ?1 
000123 
000131 
000K1 
000K3 
000 K5 
000151 
000153 
000161 
000163 
000171 
000173 

1 76700 
000254 



RTC 

READJN 
AC< 

SEARCH 

GETREG 

SETFMT 

SELDRV 

WCKD 

WCKHD 

URTDAT 

URTHD 

RDDAT 

RDHD 

ABASE 
AVECT1 



117 
121 
123 
131 
U1 
U3 
U5 
151 
153 
161 
163 
171 
173 

176700 
25A 



RETURN TO CENTER LINE 
READ IN PRESf T 
PACK ACKNOWLEDGE 
SEARCH 

GET REGISTERS 
SET FORMAT (( ECI OR HCiJ 
SELECT DRIVE 
WRITE CHECK DATA 
WRITE CHECK HEADER t DATA 
WRITE DATA 
WRITE HEADER t DATA 
;READ DATA 
;READ HEADER t DATA 



CZW1TB0 fW05/3/2 DR C«PT TST 
TRAP CATCHER 
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1 



0001 ?4 
000176 



000200 

2 

3 000204 
4 

5 000210 

6 

7 

8 



000000 



000174 
000000 
000000 



000137 
0001 37 
000137 



005566 
005604 
005622 



SEO 0031 



.S8TTL TRAP CATCHER 
.=0 

•ALL UNUSED LOCATJONS FROM 4 - 776 CONTAIN A ".♦2, HALT" 
•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
•LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.-174 



DISPREG: 
SWREG: 



.WORD 
.WORD 



0 
0 



.S8TTL STARTING ADDRESS(ES) 
JMP aifSTART 
JMP aXrSTARTI 
JMP a*START2 

.S8TTL AC Til HOOKS 



;; SOFTWARE DISPLAY REGISTER 
;; SOFTWARE SWITCH REGISTER 



.-JUMP TO STARTING ADDRESS OF PROGRAM 
CHANGE THE RH/RM UNI8US ADDRESS 
SECOND PASS STARTING ADDRESS 



000046 
000052 



9 
10 
1 1 



000214 
000046 
023544 
000052 
040000 
000214 

001100 



.-HOOKS REQUIRED BY ACT11 
$SVPC=. 
.=46 
SENDAD 
.=52 

.WORD 40000 
.-SSVPC 



.-1100 
.S9TTL 



.-SAVE PC 

;;1)SET L0C.46 TO ADDRESS OF SENDAD IN .JEOP 

;;2)SET LOC,52 TO 40000 
;; RESTORE PC 



APT PARAMETER BLOCK 



'2 
•5 



000024 
000044 



001100 
001100 
001102 
001104 
001106 
001110 
001112 



001100 
000024 
000200 
000044 
001100 
001100 



oooooo 

001212 
000454 
000454 
000454 
000032 
001114 



.-SET LOCATJONS 24 AND 44 AS REQUIRED FOR APT 



.$X=. 

.=24 
200 
.=44 
$APTHDR 
. = .$X 



SAVE CURRENT LOCATION 

SET POWER FAIL TO POINT TO START OF PROGRAM 
FOR APT START UP 

POINT TO APT INDIRECT ADDRESS PNTR. 
POINT TO APT HEADER BLOCK 
RESET LOCATION COUNTER 



SETUP APT PARAf«TER BLOCK AS DEFINED 
INTERFACE SPEC. 



IN THE APT-POPM DIAGNOSTIC 



SAPTHD 
SHIBTS 
SmADR 
STSTM: 
IPASTM 
SUNITM 



TA8.XY . 



.WORD 0 ;;TWO HIGH BITS OF 18 BIT WAIIBOX ADDR. 

.WORD SMAIL ; .-ADDRESS OF APT MAILBOX (BITS 0-15) 

.WORD 300. ;;RUN TIM OF LONGEST TEST 

.WORD 300. .•;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

.WORD 300. ;; ADDITIONAL RUN TIME (SECS) OF A PASS FQR EACH ADDED UNI' 

.WORD $ETEND-$MAIL/2 ; .-LENGTH MARBOX-E TABLE (WORDS ) 



ZR««ITBO RM05/?/2 Dft (MPT TST 



HAC«0 VOA.OO 
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001 IK 
001 1U 
001116 
001117 
0011^0 
001122 
001124 
001126 
001 1 30 
001131 
001 1 32 
001134 
C01 1 36 
001 140 
001142 
001144 
001146 
001 15C 
001151 
001 1 52 
001154 
001156 
001160 
001162 
001164 
001166 
001170 
001171 
001172 
001 1 73 
001 1 74 
001 1 76 
001200 
001202 
C01206 
001207 
001210 



001114 

000000 
000 
000 
000000 
000000 
000000 
000000 
000 
001 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000 
000 
000000 
177570 
177570 
177560 
177562 
1 77564 
1 77566 
000 
002 
012 
000 
000000 
000000 
000000 
207 
077 
015 
012 



377 
000 



377 



,S8ttl common tags 



.••THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
.••USED IN THE PROGRAM. 



SCMTAG: 

$TSTNM: 

SERFLG: 

tlCNT: 

SLPADR 

SLPERR 

$ERTTL 

SITEMB 

SERMAX 

SERRPC 

SGDADR 

SeDADR 

SGDDAT 

SeODAT 



$AUT08: 
SJNTAG: 

SWR: 
DISPLAY 
$TKS: 
STKS: 
SIPS: 
$TP8: 
SNULL: 
SFILLS 
SFILLC 
STPFLG 
STMPO: 
STIMES: 
SE SCAPE 
SeELL 
SOUES 
SCRLF 
SLF: 



.=TAB.XY 
.WORD 

.erTE 
.8YTE 
.WORD 
.WORD 
.WORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
: .WORD 
1 77560 
177562 
177564 
177566 

.eriE 

•BYTE 
.BYTE 
.BYTE 
.WORD 
0 
:0 
.ASCIZ 
.ASCII 
.ASCII 
.ASCIZ 



0 
0 
0 
0 
0 

0 . 
0 
0 
1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

DSWR 
DDISP 



0 

2 

12 
0 
0 



;; START OF COMMON TAGS 



;; CONTAINS 
;; CONTAINS 
;; CONTAINS 
;; CONTAINS 
; ; .ONTAINS 
.•.•CONTAINS 
.•.•CONTAINS 
; ; CONTAINS 
; ; CONTAINS 
.•.-CONTAINS 
; ; CONTAINS 
; ; CONTAINS 
;; CONTAINS 
;;RESE.^VED 

.•.•AUTOMATIC 
.-.•INTERRUPT 



THE TEST NU^BER 
ERROR FLAG 

SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 
MAX. ERRORS PER TEST 
PC OF LAST ERROR INSTRUCTION 
ADDRESS OF 'GOOD' DATA 
ADDRESS OF 'BAD' DATA 
•GOOD* DATA 
•BAD* DATA 
-NOT TO BE USED 



MODE 
MODE 



INDICATOR 
INDICATOR 



<207><177><177> 
/?/ 
<15> 
<12> 



; .-ADDRESS OF SWITCH REGISTER 
: .-ADDRESS OF DISPLAY REGISTER 
;;TTY <BD STATUS 
;;TTY KBD BUFFER 

;;TTY PRINTER STATUS REG. ADDRESS 

;;TTY PRINTER BUFFER REG. ADDRESS 

;; CONTAINS NULL CHARACTER FOR FILLS 

:; CONTAINS # OF FILLER CHARACTERS REQUIRED 

;;INSERT FILL CHARS. AFTER A "LINE FEED" 

;;*TERMINAL AVAILABLE" FLAG (BIT<07>-0-YES) 

;;USER DEFINED 

;;MAX. NUMBER OF ITERATIONS 

;. •ESCAPE ON ERROR ADDRESS 

;;CODE FOR BELL 

: .-QUESTION MARK 

CARRIAGE RETURN 
r;LlNE FEED 



.S8TTL APT MAI LBOX-E TABLE 



•»••••»•»»»»»»»*»»»»»•»«»•»•*•»»»»»»»»•*»»•••»•••»»•••»*»«»•»••» 



001212 
001212 
001214 
001216 
001220 
001222 
001224 
001226 



000000 
000000 
000000 
000000 
000000 
000000 
000000 



-EVEN 

SMAIL: 

SMSGTY 

SFATAL 

STESTN 

$PASS: 

JDEVCT 

$UNIT 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



SMSGAD: .WORD 



AMSGTY 

AFATAL 

ATESTN 

APASS 

ADEVCT 

AUNIT 

AMSGAD 



APT MAILBOX 
MESSAGE TYPE CODE 
FATAL ERROR Nl/«ER 
TEST NUMBER 
PASS COUNT 
DEVICE COUNT 
I/O UNIT NUMBER 
MESSAGE ADDRESS 



CZRMTBO RM05/5/2 DR 
AP" MAIlBOX-ETABlE 



001230 
001232 
001232 
001233 
00123A 
001236 
001 2A0 
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001242 
001245 



C012AA 

001246 
001247 
001250 
001252 
001253 
001254 
001256 
001257 
001260 
001262 
001264 
001266 
001270 
001272 
001274 
001276 



000000 


$MSGLG: 


.WORD 




SE TABLE: 




000 


SENV: 


BYTE 


000 


SENVM: 


.BYTE 


000000 


tSWREG: 


.WORD 


000000 


SUSUR : 


.WORD 


000000 


JCPUOP: 

• • 
• 

• » 
• » 


.WORD 


000 


• » 
• 

■ • 

• » 
• 

$^W1S1 : 


.BYTE 


000 


SMTyPI : 

• » 
• 

• » 
• 


.BYTE 


000000 


• » 
• • 

SMADRI : 


.WORD 


000 


$MAMS2: 


.BYTE 


000 


$MTYP2: 


• BYTE 


000000 

www 


SnA0R2: 


.WORD 


000 


SMAnS3: 


• BYTE 


000 


SMTYP3: 


.BYTE 


000000 

W WW 


WADR'i : 


.WORD 


000 


$MAnS4: 


.BYTE 


000 


$MTYP4: 


.BYTE 


000000 


S/nADR4: 


.WORD 


000254 


SVECTI : 


.WORD 


uooooo 


$VECT2: 


.WORD 


176700 


SBASE: 


.WORD 


000000 


$DEVM: 


.WORD 


000000 


SCDWl : 


.WORD 


000000 


$CDW2: 


.WORD 




lETEND: 






.MEXJT 
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AMSGLG 

AENV 

AENVn 

ASWREG 

AUSUR 

ACPUOP 



AMAMSI 
AMTYP1 



AMADRI 

A«AriS2 

AMTYP2 

A«ADR2 

AinAMS3 

AMTYP3 

AMADR3 

A«AMS4 

AMTYP4 

ArtADR4 

AVECT1 

AVECT2 

ABASE 

ADEVn 

ACDW1 

ACDW2 



; .-MESSAGE LENGTH 
;;APT EMVJRO^IENT TAB. E 
;;ENVjROf»WENT BYTE 
;;ENVIR0>#1ENT MODE BHS 
;;APT SWITCH REGISTER 
;;USER SWITCHES 
;;CPU TYPE. OPTIONS 
BITS 15-11=CPU TYPE 

1 1 /04=01 . 1 1 /05=02 . 1 1 /2O=03, 1 1 /40=04 , 1 1 /45=05 

1 1/70=06. PDO=07. 0=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FL0ATING POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
;;HI6H ADDRESS.M.S. BYTE 
;;MEM. TYPE.BLK#1 
MEM. TYPE BYTE — (HIGH BYTE; 

900 NSEC CORE =001 

300 NSEC BIPOLAR=002 

500 NSEC MOS=005 
:;HIGH ADDRESS 3LK4rl 

MEM.LAST ADDR.=3 BYTES. THIS WORD AND lOW OF '^YPf ABOVE 
;;HI6H ADDRESS.M.S. BYTE 
;; MEM. TYPE ,BLK>r2 
;;MEM.LAST ADDRESS.8LK#2 
;;HI6H ADDRESS.M.S. BYTE 
;; MEM. TYPE .8LIC#3 
; .'MEM.LAST ADDRESS.8LK#5 
;;HI6H ADDRESS.M.S.6YTE 
;. MEM. TYPE .8LK#4 
;;^«M.LAST ADDRESS. 8L>0lf4 
.-INTERRUPT VECTOR/rl.BUS PRIORI TY#1 
;; INTERRUPT VECT0R#2BUS PRIORI TY#2 
.-.BASE ADDRESS OF EQUIPMENT UNDER TEST 
.-.DEVICE MAP 

.-.-CONTROLLER DESCRIPTION WORD^I 
;; CONTROLLER DESCRIPTION W0RD#2 



0021 



CZ«MTdO «M05/?/2 DR CMPT TST 
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SfO 0054 



001276 
001300 
001302 
001304 
001306 
001310 
001312 
001 3U 
001316 
001320 
001 322 
001 32A 

001 326 
001330 

001332 
001 334 
001336 
001 340 
001 342 
001 344 
001 346 
001350 
001352 
001354 
001356 
001360 
001362 
001364 
001366 
001370 
001372 
001374 
001 376 
001400 
001402 
001404 



1 76700 
000254 
172540 
172542 
000104 
177546 
000100 
^ 77777 
}77777 
000074 
000000 
000000 
001224 
000000 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000037 
000000 
001466 
000000 
000000 
000000 
000000 





USER DEFINED T 


tRMADR 


.WORD 


1 76700 




.WORD 


254 




.WORD 


172540 




.WORD 


172542 


tLPVEC 


.WORD 


104 




.WORD 


177546 


ILLVEC 


WORD 


100 


PCLOCK 


.WORD 


-1 


CLKFLG 


.WORD 


-1 


HZ : 


.WORD 


74 


STATIN 


.WORD 


0 


PACK : 


.WORD 


0 


DRIVE 


= JUNIT 




ATTN: 


.WORD 


0 


UNI T : 


.WORD 


0 


lSTAD: 


.WORD 


0 


CHGADR 


.WORD 


0 


CFLAG: 


.WORD 


0 


TSTr#1: 


.WORD 


0 


BADSEC 


.WORD 


0 


HOUR: 


.WORD 


0 


MINUTE 


.WORD 


0 


SECOND 


.WORD 


0 


SIXTEE 


.WORD 


0 


CMCNT : 


.WORD 


0 


CMCYL: 


.WORD 


0 


STARSC 


.WORD 


0 


CMSEC: 


.WORD 


0 


CMTRK: 


.WORD 


0 


NULINE 


.WORD 


0 


SECLMT 


.WORD 


31. 


TRKLMT 


.WORD 


0 


CYLIMT 


.WORD 


822. 


FAULT: 


.WORD 


0 


RSTART 


.WORD 


0 


DTYP: 


.WORD 


0 


XXDP: 


.WORD 


0 



001406 


000 


017 


015 


LOGO: 


.8YTE 


001426 


001 


000 


016 


L0G1 : 


.8YTE 


001446 


002 


001 


017 


L0G2: 


.8YTE 


001466 


003 


002 


000 


L0G3: 


.8YTE 


001506 


004 


003 


001 


L0G4 : 


.8YTE 


001 526 


005 


004 


002 


L0G5: 


.8YTE 



FIRST ADDRESS OF RH/RM REGISTERS 
VECTOR ADDRESS 

ADDR OF KWll-P STATUS REGISTER 
ADDR OF KWI1-P COUNTER BUFFER 
ADDR OF KWll-P VECTOR 
ADDR OF KW11-L STATUS REGISTER 
ADDR OF KW11-L VECTOR 
•0' IF KW11-P IS ON SYSTEM 
•0' IF A CLOCK IS AVAILABLE 

74 (8) IF 60 HZ SYSTEM; 62 (8) IF 50 HZ SYSTEM 
•TYPE STATISTICS' INDICATOR 
ENTRY TO THE TABLE D 
DRIVE M STORAGE: 
ATTN REG STORAGE: 
DRIVE # STORAGE FOR PRINTOUT 
RETRY COUNT IN THE UPPER BYTE 
STORE LAST MEMORY ADDRESS HERE 
CHANGE RH/RM UNI BUS ADDRESS FLAG 
'CONTROL C FLAG 

TEST NUMBER FOR PRINT AND SCORE RT. 
BAD SEC TOR/ TRACK FLAG 
HOUR COUNT STORED HERE (MAXIMl/1 - 999.) 
MINUTE'S COUNT STORED HERE 
SECOND'S COUNT STORED HERE 
TIMER ROUTINE COUNTER (FOR ONE SECOND) 
ZONE COUNT 
CYLINDER ADDRESS 
STARTING SECTOR (FOR TEST 6.8) 
DALTA CYLINDER COUNT 
TRACK ADDRESS 

NEW LINE FLAG AND COLUMN CTR 
SECTOR ADDRESS LIMIT 

TRACK ADDRESS LIMIT. RM03/2 = 4. AND RM05 18. 
CYLINDER ADDRESS LIMIT 
=1. IF ALL DRIVES NOT COMPATIBLE 
CONTAINS PROGRAM RESTARTING ADDRESS 
CONTAINS DRIVE TYPE CODE OF DRIVE BEING TESTED 
THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM whKh 
THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 
•XXDP' DEVICE CODE THE RM05/3/2. 

.S8TTL TABLES. CONSTANTS. AND VARIABLE LOCATIONS 

.•TABLE f> 

.•TABLE uiSTED BELOW SPECIFIES THE SECTORS TO BE WRITTEN 
;8Y A LOGICAL DRIVE. EACH LOGICAL DRIVE WRITES TWO SECTORS ON ONE 
.•CYLINDER , 16 CYLINDERS IN ONE BLOCK. 2 BLOCKS IN ONE WRI TE-CURRENT 
.'ZONE AND 7 CURRENT ZONES IN A PACK. 

0.1 5.. 13.. 10.. 6, 1.11.. 4. 12.. 13.. 9.. 14.. 2. 5. 7. 8. 
1.0. 14.. 11.. 7. 2. 12.. 5. 13.. 4. 10.. 15.. 3.6. 8.. 9. 
2.1.15..12..8..3.13..6.14..5,11..0.<.7.9..10. 
3. 2. 0.1?.. 9.. 4. 14.. 7. IS.. 6. 12.. 1.5. 8.. 10.. n. 
4. 3. 1. 14.. 10.. 5. 15.. 8.. 0.7. 13.. 2,6. 9.. n.. 12. 
5. 4. 2. 15.. 11., 6, 0.9.. 1.8.. 14.. 3. 7. 10 .12.. 13. 
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SEO 0035 



00' 546 


006 


005 


003 


L0G6: 


.8VTE 


6.5 


001566 


007 


006 


004 


L0G7: 


.BYTE 


7.6 


001606 


010 


007 


005 


LOGS: 


.BYTE 


8.. 


001626 


Oil 


010 


006 


L0G9: 


.BYTE 


9. , 


001 6A6 


012 


Oil 


007 


LOG10: 


.BYTE 


10. 


001666 


013 


012 


010 


LOGl 1 : 


.BYTE 


11 . 


001706 


014 


013 


Oil 


L0G12: 


.BYTE 


12. 


001726 


015 


014 


012 


LOGl 3: 


.BYTE 


13. 


001746 


016 


015 


013 


LOGl 4: 


.BYTE 


14. 


001766 


017 


016 


014 


LOGl 5: 


.BYTE 


15. 


002006 


000000 






ASNLST: 


.UCRD 


0 


002010 


000000 






ASSGN1 : 


.WORD 


0 


002012 


000000 






ASSGr>l2: 


.WORD 


0 


0020K 








SVSADR: 


.BLKW 


16. 


002054 


oocooo 






TA8LEX: 


.WORD 


0 



,12. .14. ,15, 



A BIT SET JS AN ASSIGNED LOGICAL 
A SIT SET IS AN ASSIGNED LOGICAL 
A BIT SET IS AN ASSIGNED LOGICAL 
sue SYSTEM ADDRESS TABLE 
CURRENT SELECTED SCORE BOARD 



; SCORE BOARD TABLES 

.•TABLE OF OVERWRITE SCORE .NEGATIVE OFFSET SCORE 



002056 


000 


000 


000 


OVWNO 




.BYTE 


002076 


000 


000 


000 


0VWN1 




.BYTE 


002116 


000 


000 


000 


0VWN2 




.BYTE 


002136 


000 


000 


000 


0VWN3 




.BYTE 


002156 


000 


000 


000 


0VWN4 




.BYTE 


002176 


000 


000 


000 


0VUN5 




.BYTE 


002216 


000 


000 


000 


0VWN6 




.BYTE 


002236 


000 


000 


000 


0VUN7 




.BYTE 


002256 


000 


000 


000 


0VWN8 




.BYTE 


002276 


000 


000 


000 


0VWN9 




.BYTE 


002316 


000 


000 


000 


OVUN10 


.BYTE 


002336 


000 


000 


000 


0VWN11 


.BYTE 


002356 


000 


000 


000 


ovyNi2 


.BYTE 


002376 


000 


000 


000 


0VWN13 


•BYTE 


002416 


000 


000 


000 


0VUN14 


.BYTE 


002436 


000 


000 


000 


0VWN15 


.8VTE 


002456 


000 


000 


000 


0VWN16 


.BYTE 


002476 


000 


000 


000 


0VWN17 


.BYTE 


002516 


000 


000 


000 


0VUN18 


• .BYTE 



0.0.0, 
0.0.0, 
0.0.0, 
0.0.0. 
0.0.0, 
0.0.0, 
0.0.0, 
0.0.0. 
0.0.0, 
0.0.0. 
0.0.0. 
0.0.0. 
0.0.0, 
0.0.0, 
0.0.0, 
0.0.0, 
0.0.0, 
0.0,0, 
0.0.0 



0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0,0,0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 



.0.0.0 
.0.0.0 
.0.0.0 
.0.0.0 
.0.0.0 
.0.0.0 
.0.0.0 
,0.0.0 
.0,0.0 
.0.0.0 
.0.0.0 
.0.0.0 
,0,0,0 
,0,0,0 
,0,0.0 
.0.0,0 
.0.0.0 
.0.0.0 
.0.0.0 



.0.0. 
.0.0. 
.0.0. 
.0.0. 
.0.0. 
.0.0. 
.0.0. 
.0.0, 
.0.0. 
.0,0. 
.0.0. 
.0.0. 
.0.0. 
.0.0. 
.0.0. 
.0.0. 
.0,0. 
.0.0, 
.0.0. 



0,0,0,0,0 
0,0,0.0.0 
0.0,0,0,0 
0.0.0.0.0 
0.0.0.0,0 
0.0.0.0.0 
0.0,0.0.0 
0.0.0,0,0 
0,0,0.0.0 
0.0.0.0,0 
0.0.0.0.0 
0.0.0.0.0 
0.0,0.0,0 
0,0,0,0,0 
0,0,0.0,0 
0,0,0,0,0 
0,0.0,0,0 
0.0.0.0.0 
0.0.0.0.0 



.TABLE Of OVERWRITE SCORE .POSITIVE OFFSET SCORE 



002536 


000 


000 


000 


OVWPO 


.BYTE 


002556 


000 


000 


000 


0VWP1 


.BYTE 


002576 


000 


000 


000 


0VWP2 


.BYTE 


002616 


000 


000 


000 


0VWP3 


.BYTE 


002636 


000 


000 


000 


0VWP4 


.BYTE 


002656 


000 


000 


000 


0VWP5 


■ .BYTE 


002676 


000 


000 


000 


0VWP6 


• .BYTE 


002716 


000 


000 


000 


0VWP7 


.BYTE 


002736 


000 


000 


000 


0VWP8 


.BYTE 


002756 


000 


000 


000 


0VWP9 


.BYTE 


002776 


000 


000 


000 


OVWPIO: .BYTE 


003016 


000 


000 


000 


0VWP11: .BYTE 


003036 


000 


000 


000 


0VWP12: .BYTE 


003056 


000 


000 


000 


0VWP15: .BYTE 


003076 


000 


000 


000 


0VWP14: .BYTE 



0.0.0 
0.0,0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 



.0.0.0. 
.0.0.0. 
.0,0.0, 
.0.0.0. 
.0.0.0. 
.0,0.0. 
,0.0.0. 
.0.0.0. 
.0.0.0. 
.0.0.0. 
.0.0.0, 
.0.0.0. 
.0.0.0. 
.0.0.0. 
.0,0,0. 



0.0.0 
0.0.0 
0.0.0 
0,0.0 
0,0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0,0. c 
0.0,0 
0,0.0 
0.0.0 
0.0.0 



.0.0.0 
.0.0.0 
,0.0.0 
.0.0.0 
.0.0.0 
.0.0.0 
.0.0.0 
.0.0.0 
.0.0.0 
.0.0.0 
.0.0.0 
,0.0.0 
.0,0,0 
.0.0,0 
.0.0.0 



.0.0.0.0 
,0.0.0.0 
.0.0.0.0 
.0.0.0.0 
,0.0.0,0 
.0.0.0.0 
.0.0.0.0 
.0,0,0.0 
.0.0.3.0 
.0.0.0.0 
.0.0.0.0 
.0.0.0.0 
.0.0.0.0 
.0.0.0.0 
.0.0.0.0 



; TRACK 


0 


; TRACK 


1 


; TRACK 


2 


; TRACK 


3 


; TRACK 


4 


; TRACK 


5 


.-TRACK 


6 


.•TRACK 


7 


; TRAC< 


8 


; TRACK 


9 


; TRACK 


10 


; TRACK 


11 


; TRACK 


12 


; TRACK 


13 


; TRACK 


14 


; TRACK 


15 


; TRACK 


16 


; TRACK 


17 


; TRACK 


18 


; TRACK 


0 


; TRACK 


1 


; TRACK 


2 


; TRACK 


3 


; TRACK 


4 


; TRACK 


5 


; TRACK 


6 


.•TRACK 


7 


; TRACK 


d 


.-TRACK 


9 


; TRACK 


10 


; TRACK 


n 


; TRACK 


12 


; TRACK 


13 


; TRACK 


14 



DRIVE 
DRIVE 
DRIVE 



FOR PASS 1 
FOR PASS 2 



CZRMTBO RM05/3/2 DR CMPT TST MACRO VO^.OO 
TABLES. CONSTAfJTS. AND VARIABLE LOCATIONS 
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SEO 



003116 


000 


000 


000 


0VWP15: 


.BYTE 


003136 


000 


000 


000 


0VWP16: 


.BYTE 


003156 
003'' 76 


000 


000 


000 


0VWP17: 


.BYTE 


000 


000 


000 


0VWP18: 


• BYTE 



0.0.0.0,0.0,0.0 0.0.0.0.0.0.0.0 
0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0 
0.0.0.0.0,0.0.0,0,0.0.0.0.0,0.0 
0.0.0,0,0,0,0,0,0.0.0.0,0.0.0,0 



.-TABLE OF READ SCORE .NEGATIVE OFFSET SCORE 



003216 


000 


000 


000 


RDNO 




.BYTE 


003236 


000 


000 


000 


RDNI 




.BYTE 


003256 


000 


000 


000 


RDN2 




.BYTE 


003276 


000 


000 


000 


RDN3 




• BYTE 


003316 


000 


000 


000 


RDN4 




.BYTE 


003336 


000 


000 


000 


RDN5 




.BYTE 


003356 


000 


000 


000 


RDN6 




.BYTE 


003376 


000 


000 


000 


RDN7 




.BYTE 


003A16 


000 


000 


000 


RDN8 




.BYTE 


003A36 


000 


000 


coo 


RDN9 




.BYTE 


003A56 


000 


000 


000 


RDN10 


.BYTE 


003A76 


000 


000 


000 


RDN11 


.BYTE 


003516 


000 


000 


000 


RDN12 


.byt: 


003536 


000 


000 


000 


RDN13 


.BYTE 


003556 


000 


000 


000 


RDNK 


.BYTE 


003576 


000 


000 


000 


RDNI 5 


• BYTE 


003616 


000 


000 


000 


RDN16 


.BYTE 


003636 


000 


000 


000 


RDNI 7 


.BYTE 


003656 


000 


000 


000 


RDN18 


.BYTE 



0.0.0 
0.0,0 
0.0.0 
0.0.0 
0.0.0 
0,0,0 
0,0,0 
0,0,0 
0.0,0 
0,0,0 
0.0.0 
0.0.0 
0.0,0 
0,0,0 
0,0.0 
0.0,0 
0.0.0 
0.0.0 
0.0.0 



.0.0.0.0. 
.0.0.0.0, 
.0.0.0.0. 
.0.0,0.0. 
.0.0.0.0. 
,0.0.0.0. 
.0.0.0.0. 
.0.0.0.0. 
.0.0.0.0. 
.0.0.0.0. 
.0.0.0.0. 
,0.0.0.0. 
,0,0,0.0, 
,0,0,0,0. 
.0.0.0.0. 
,0,0.0.0. 
.0.0.0.0. 
.0.0.0.0. 
.0,0,0.0. 



0.0.0. 
0,0.0. 
0,0.0, 
0.0.0, 
0,0,0, 
0.0.0. 
0.0.0. 
0.0.0. 
0.0.0. 
0,0.0. 
0.0.0. 
1,0,0, 
0,0,0, 
0,0,0, 
0,0,0, 
0,0.0, 
0,0.0, 
0.0.0. 
0.0.0, 



0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0,0,0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 
0.0.0 



.0.0.0 
.0.0.0 
.0,0.0 
.0,0,0 
.0,0,0 
,0,0.0 
,0,0.0 
.0,0,0 
,0,0.0 
.0.0,0 
.0.0.0 
.0,0.0 
.0.0.0 
,0.0.0 
.0.0.0 
.0.0,0 
,0.0,0 
.0,0,0 
,0.0.0 



.TABLE OF READ SCORE .POSI TI VE OFFSET SCORE 



003676 


000 


000 


000 


RDPO 




.BYTE 


003716 


000 


000 


000 


RDP1 




.BYTE 


003736 


000 


000 


000 


RDP2 




• BYTE 


003756 


000 


000 


000 


RDP3 




.BYTE 


003776 


000 


000 


000 


RDP4 




.BYTE 


004016 


000 


000 


000 


RDP5 




.BYTE 


004036 


000 


000 


000 


RDP6 




.BYTE 


004056 


000 


000 


000 


RDP7 




.BYTE 


004076 


000 


000 


000 


RDP8 




.BYTE 


004116 


000 


000 


000 


RDP9 




.BYTE 


004136 


000 


000 


000 


RDP10 


.BYTE 


004156 


000 


000 


000 


RDP11 


.BYTE 


004176 


000 


000 


000 


RDP12 


.BYTE 


004216 


000 


000 


000 


RDP13 


.BYTE 


004236 


000 


000 


000 


RDP14 


.BYTE 


004256 


000 


000 


000 


RDP15 


.BYTE 


004276 


000 


000 


000 


RDP16 


.BYTE 


004316 


000 


000 


000 


RDP17 


.BYTE 


004336 


000 


000 


000 


RDP18 


.BYTE 



0.0.0 
0,0,0 
0.0.0 
0.0,0 
0,0,0 
0,0,0 
0,0,0 
0.0,0 
0.0.0 
0.0,0 
0,0.0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0,0.0 
0,0.0 
0.0.0 
0,0.0 



.0,0.0 
.0.0,0 
.0.0,0 
,0,0,0 
,0.0,0 
.0.0.0 
.0.0.0 
,0.0,0 
.0.0.0 
.0.0.0 
.0.0,0 
,0,0,0 
.0,0,0 
,0,0.0 
.0,0,0 
.0.0.0 
.0.0.0 
.0.0,0 
.0,0.0 



.0,0, 
,0,0, 
.0,0, 
,0,0, 
,0,0, 
,0,0, 
,0,0, 
.0,0. 
,0.0, 
,0.0, 
,0,0, 
.0.0. 
.0,0. 
.0,0, 
,0,0. 
,0,0. 
.0.0. 
,0,0, 
,0,0, 



0.0.0 
0.0.0 
0.0,0 
0,0,0 
0,0.0 
0,0,0 
0,0.0 
0,0,0 
0,0,0 
0,0,0 
0,0,0 
0.0.0 
0.0,0 
0,0,0 
0.0, c 
0,0,0 
0,0.0 
0,0,0 
0.0,0 



.0,0,0,0,0 
,0,0,0,0,0 
,0,0.0,0,0 
,0,0,0,0,0 
,0,0.0,0,0 
,0,0,0,0,0 
,0,0,0,0,0 
,0,0.0,0,0 
.0.0,0.0,0 
.0.0,0.0,0 
,0,0,0,0,0 
,0,0,0.0.0 
,0,0.0.0,0 
.0,0,0,0,0 
,0.0,0,0,0 
.0.0,0,0.0 
,0.0.0.0.0 
.0.0.0.0.0 
.0.0.0,0.0 



.•TABLE OF SELF TEST SCORE 



004356 


000 


000 


SELFO 


004360 


000 


000 


SELF1 


004362 


000 


000 


SELF2 


004364 


000 


000 


SELF3 


004366 


000 


000 


SELF4 


004370 


000 


000 


SELF5 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



0,0 
0,0 
0,0 
0.0 
0.0 
0.0 



TRACK 15 
TRACK lo 
TRACK 17 
: TRACK 18 



; TRACK 


0 


.•TRACK 


1 


; 7RACK 


2 


; TRACK 


3 


; TRACK 


4 


; TRACK 


5 


; TRACK 


6 


; TRACK 


7 


; TRACK 


8 


; TRACK 


9 


; TRACK 


10 


; TRACK 


11 


; TRACK 


12 


.•TRACK 


13 


; TRACK 


14 


; TRACK 


15 


; TRACK 


16 


; TRACK 


17 


; TRACK 


18 


; TRACK 


0 


; TRACK 


1 


; TRACK 


2 


; TRACK 


3 


; TKACK 


4 


.TRACK 


5 


; IKA'.K 


o 


.-TRACK 


7 


; TRACK 


8 


; TRACK 


9 


; TRACK 


10 


; TRACK 


11 


; TRACK 


\2 


; TRACK 


13 


; TRACK 


14 


; TRACK 


15 


; TRACK 


16 


.TRACK 


17 


; TRACK 


18 


; TRACK 


0 


; TRACK 


1 


.TRACK 


2 


; TRACK 


3 


; TRACK 


4 


; TRACK 


5 



czrmtbo rm05/^/c dr cmpt tst macro v0'..00 
tablEs, constants, and variable locations 
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00^372 


000 


000 


SELF6: 


.BVTE 


0.0 


004374 


000 


000 


SELF 7: 


.BYTE 


0.0 


004376 


000 


000 


SELF 8: 


.BYTE 


0.0 


004400 


000 


000 


SELF9: 


.BYTE 


0.0 


004402 


000 


000 


SELF10 


.CYTE 


0.0 


004404 


000 


000 


SELF 11 


.BYTE 


0,0 


004406 


000 


000 


SELF12 


.BYTE 


0.0 


004410 


000 


000 


SELF13 


.BYTE 


0.0 


004412 


000 


000 


SELF14 


.BYTE 


0.0 


004414 


000 


000 


SELF15 


.BYTE 


0.0 


004416 


000 


000 


SELF16 


.BYTE 


0.0 


004420 


000 


000 


SELH7 


.BYTE 


0.0 


004422 


000 


000 


SELF18 


: .BYTE 


0.0 



6 

7 



004424 



000 



001 



TRACK 
TRACK 
TRACK 8 
TRACK 9 
TRACK 10 
TRACK 11 
TRACK 12 
TRACK 13 
TRACK U 
TRACK 15 
TRACK 16 
TRACK 17 
TRACK IS 

;THE START LOGICAL DRIVE # TO WRITE ON EACH CYLINDER OF A BLOCK 
;16 CYLINDERS. 2 BLOCKS, TOTAL 32 CYLINDERS IN ONE ZONE 

003 INDST: .BYTE 0,1 .3.6 JO. .1 5. .5, 12. .4.13. .7,2.14. J 1 . ,9. ,8. 



SEO 0057 



004444 

004444 
004446 
004450 
004452 
004454 
004456 
004460 
004462 
004464 
004466 
004470 
004472 
004474 
004476 
004500 
004502 



004622 
004644 
004666 
004710 
004732 
004754 
004776 
005020 
005042 
005064 
005106 
005130 
005152 
005174 
005216 
005240 



6LKADR: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



DRIVO 

DRIVI 

DRIV2 

DRIV3 

DRIV4 

DRIV5 

DRIV6 

DRIV7 

DRIVIO 

DRIV11 

DRIVI 2 

DRIVI 3 

DRIVI 4 

DRJV15 

DRJV16 

0RIV17 



ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS Of 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 



THE PARAMETER BLOCK FOR DRIVE 0 
THE PARAMETER BLOCK FOR DRIVE 1 
PARAMETER BLOCK FOR DRIVE 2 
PARAMETER BLOCK FOR DRIVE 3 
THE PARAMETER BLOCK FOR DRIVE 4 
THE PARAMETER BLOCK FOR DRIVE 5 
THE PARA^TER BLOCK FOR DRIVE 6 
THE PARAMETER BLOCK FOR DRIVE 7 
THE PARAMETER BLOCK FOR DRIVE 10 
THE PARAMETER BLOCK FOR DRIVE 11 
PARAMETER BLOCK FOR DRIVE 12 
PARAMETER BLOCK FOR DRIVE 13 
THE PARAMETER BLOCK FOR DRIVE 14 
THE PARAMETER BLOCK FOR DRIVE 15 
THE PARAMETER BLOCK FOR DRIVE 16 
THE PARAMETER BLOCK FOR DRIVE 17 



THE 
THE 



THE 
THE 



004504 000000 



004506 
004507 
004510 
004511 
004512 
004514 
004516 
004517 
004520 
004522 
004524 



000 
000 
000 
000 
000000 
043456 
000 
000 
000000 
004526 
000000 



OFF COD: .WORD 



; DATA/PARAMETER BLOCK 



FMTDP8: .BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 



0 
0 
0 
0 
0 

BUFFER 

0 
0 

0 

RM.REG 
0 



.•OFFSET CODE TABLE 

.•NUMBER FOR NEGATIVE OFFSET (DIR = OUT) 
.^HMBER FOR POSITIVE OFFSET (DIR - IN) 



DRIVER PARAMETER BLOCK. DRIVE * 

OFFSET VALUE OR FMT16. HCI OR EC I 

COMMAND CODE 

PSEL. A16 AND A17 

WORD COUNT (NEG) 

BUFFER ADDRESS 

SECTOR ADDRESS 

TRACK ADDRESS 

CYLINDER ADDRESS 

ADDRESS TO SAVE ALL RH/RM REG'S 

STATUS WORD 



M 3 
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TABLES. CONSTANTS. AND VARIABLC LOCATIONS 



SCO 0058 



004526 


000000 

www 


RM REG: .WORD 


0 


Rncsi 


004 5 ^O 


000000 

www 


.WORD 


0 


RMWC 


00453? 


000000 

www 


.WORD 


0 


RMBA 


004534 


000000 

www 


[word 


0 


RMDA 


004536 


000000 

V vww 


.WORD 


0 


RMCS2 


004540 


000000 

www 


.word 


c 


RMDS 


004542 


000000 

www 


. WORD 


0 


RMERI 


004544 


000000 

www 


.WORD 


0 


RMAS 


004546 


000000 


.WORD 


0 


RMLA 


004550 


000000 

V W W W W w 


.WORD 


0 


RflDB 


004552 


000000 

www 


.WORD 


0 


RnW)1 


004554 


000000 

W WW W 


.WORD 


0 


RMDT 


004556 


000000 


.WORD 


0 


RMSN 


004560 


000000 


.WORD 


0 


•RMOF 


004562 


000000 


.WORD 


0 


•RMCA 


004564 


000000 


.WORD 


0 


;RMDC 


00<.566 


000000 


.WORD 


0 


;RMER2 


004570 


000000 


.WORD 


0 


;RMriR2 


004572 


000000 


.WORD 


0 


,RMEC1 


004574 


000000 


.WORD 


0 


;RMEC2 



.-GENERAL PURPOSE PARAMETER BLOCK 



004576 


000 


GENDP8: 


.evTE 


0 


DRIVER PARAMETER BLOCK. D9IVE M 


004577 


000 




.BYTE 


0 


OiFSET VALUE OR FMT16. HCI OR ECI 


004600 


000 




.BYTE 


0 


COMMAND CODE 


004601 


000 




•BYTE 


0 


PSEL. A16 AND A17 


004602 


177776 




.WORD 


-2 


■WORD COUNT (NEC) 


004604 


004616 




.WORD 


CYLNDR 


-BUFFER ADDRESS 


004606 


000 




.BYTE 


0 


•SECTOR ADDRESS 


004607 


000 




.BYTE 


0 


■TRACK ADDRESS 


004610 


000000 




.WORD 


0 


•CYLINDER ADDRESS 


004612 


004526 




.WORD 


RM.REG , 


;ADDRESS TO SAVE ALL RH/RM REG'S 


004O14 


000000 




.WORD 


0 


; STATUS WORD 


004616 




CYLNOR: 


.8LICW 


2 .BUFFER 



.•HISTORY FILE FOR 16. LOGICAL DRIVES: (0-17 OCTAL) 



004622 
004624 
00464A 
004646 
004666 



000001 
000002 
000003 
000004 
000006 
000010 
000011 
00001? 
000014 
000015 
000016 
000022 

000 

001 

002 



000 
000 
000 



$FMT 


- 1 






SCOMND 


= SFM1+1 




•COMMAND CODE 


fPSEL 


= $FMT*2 




•PROT SELECT AND A16.A17 


SWRDM 


= SFMT+3 




•WORD COUNT 




= SFMT+5 




BUFFER ADDRESS 


SSEC 


= SFMT+7 




SECTOR ADDRESS 


STRK 


= $FMT*10 




-TRACK ADDRESS 


SCYL 


= $FMT•^11 




-CYLINDER ADDRESS 


SSYSNM 


= $fMT*13 




■SUB SYSTEM A-H 


SPHYDR 


= SFMT+14 




-PHYSICAL DRIVE CODE (ASCII 


SGAP 


= SFMT+15 




LEFT TWO NULL BYTES 


JEMTAB 


= S6AP+A 




■END OF HISTORY TABLE 


DRIVO: 


.BYTE 7i0,0 


.•HISTORY 


BLOCK OF LOGICAL DRIVE 0 


.BLKB 


SEMTA8-SC0MND 






DRIVI: 


.BYTE 7t1.0 


.•HISTORY BLOCK OF LOGICAL DRlVt 1 


.BLKB 


SEMTA8-SC0MND 






DRIV2: 


.BYTE 762.0 


.•HISTORY BLOCK OF LOGICAL DRIVE 2 



CZRMTBO RM05/3/2 OR CMPT TST 
0026 TABLES, CONSTANTS. AND VARIABLE 



OCX 670 






004710 


003 


000 


00471? 






004732 


004 


000 


004 734 






004754 


005 


000 


004756 






004776 


006 


000 


005000 






005020 


007 


000 


005022 






005042 


000 


000 


005044 






005064 


00 1 


000 


005066 






005106 


002 


000 


005110 






005130 


003 


000 


005132 






005152 


004 


000 


005154 






005174 


005 


000 


005176 






005216 


006 


000 


005220 






005240 


007 


000 


005242 






005262 


066666 




005264 


155554 




005266 


1 33331 




005270 


066663 




005272 


1 55546 




005274 


133315 




005276 


066633 




005300 


155466 




005302 


133155 




005304 


066333 




005306 


154666 




005310 


131555 




005312 


063333 




005314 


146666 




005316 


115555 




005320 


033333 




005322 


040135 




005324 


1 77070 




005326 


070414 




005330 


064531 




005332 


174473 




005334 


062422 




005336 


114352 




005340 


036620 




005342 


010031 




005344 


052336 





MACRO V04.00 4-APR-81 18:12:15 
LOCATIONS 

.8LICB $EMTAB"$COMND 
DRIV3: .BYTE 7i3,0 
.8LKB SEMTAB-SCOMND 
DRIV4: .BYTE 7ft4.0 
.8LK8 SEMTAB-SCOMND 
DRIV5: .BYTE 785.0 
.BLKB $EMTA8-$C0MND 
DRIV6: .BYTE 7ft6.0 
.BLKB $EMTA8-$C0MND 
DRIV7: .BYTE 767.0 
.8LK8 $EMTA8-$C0WID 
DRIVIO: .BYTE 7i10.0 
.BLKB SEMTAB-SCOMND 
DRIV11: .BYTE 7fc11.0 
.BLKB SEMTAB-SCOMND 
DRIV12: .BYTE 7ft12.0 
.BLKB SEMTAB-SCOMND 
DRIV13: .BYTE 7fc13.0 
.BLKB SEMTAB-SCOMND 
DRIV14; .BYTE 7614.0 
.8LK8 SEMTAB-SCOMND 
DRIV15: .BYTE 7615.0 
.BLKB SEMTAB-SCOMND 
DRIV16: .BYTE 7i16.0 
.BLKB SEMTAB-SCOMND 
DRIV17: .BYTE 7t17,0 
.BLKB SEMTAB-SCOMND 



.•STANDARD DATA 


PATTERN 


STNDAT: .WORD 


066666 


.WORD 


155554 


.WORD 


133331 


.WORD 


066663 


.WORD 


155546 


.WORD 


133315 


.WORD 


066633 


.WORD 


155466 


.WORD 


133155 


.WORD 


066333 


.WORD 


154666 


.WORD 


131555 


.WORD 


063333 


.WORD 


146666 


.WORD 


115555 


.WORD 


033333 


PSEUOO; .WORD 


040135 


.WORD 


177070 


.WORD 


070414 


.WORD 


064531 


.WORD 


174473 


.WORD 


062422 


.WORD 


114352 


.WORD 


036620 


• WORD 


010031 


.WORD 


052356 



N 3 
PAGE 7-5 



HISTORY 


BLOCK 


Of 


HISTORY 


BLOCK 


Of 


HISTORY 


BLOCK 


OF 


HISTORY 


BLOCK 


OF 


HISTORY 


BLOCK 


OF 


HISTORY 


BLOCK 


OF 


HISTORY 


BLOCK 


OF 


HISTORY 


BLOCK 


OF 


HISTORY 


BLOCK 


OF 


HISTORY 


BLOCK 


OF 


HISTORY 


BLOCK 


OF 


HISTORY 


BLOCK 


OF 


HISTORY 


BLOCK 


OF 



LOGICAL DRIVE 3 
LOGICAL DRIVE 4 
LOGICAL DRIVE 5 
LOGICAL DRIVE 6 
LOGICAL DRIVE 7 
LOGICAL DRIVE 10 
LOGICAL DRIVE 11 
LOGICAL DRIVE 12 
LOGICAL DRIVE 13 
LOGICAL DRIVE 14 
LOGICAL DRIVE 15 
LOGICAL DRIVE 16 
LOGICAL DRIVE 17 



StO 0039 



7SWTB0 W105/V2 DR C«PT TST 
^.^B^ES, CONSTANTS, AND VARIABLE 

005346 0173*'0 

005350 011347 

005352 102367 

005354 152567 

005356 001246 

005360 160073 



B 4 

HACRO V04.00 4-APR-81 18:12:15 PAGE 7-6 
LOCAriONS 

.WORD 017310 

.WORD 011347 

.yORD 102367 

.WORD 152567 

.WORD 001246 

.WORD 160073 



"ZRmBO RM05/V2 OR C«PT 
IRROR POINTER TABLE 



TST NIACRO «/04.00 



C 4 

4-APR-81 18:12:15 PAGE 8 



£0 0(K1 



,S8TTL ERROR POINTER TABLE 

•THIS TA8LE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

•THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

•'OCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

•N0TE1: IF SITEMB IS 0 THE ONLr PERTINENT DATA IS (SERRPO. 

•N0TE2: EACH ITEM IN THE TABLE CONTAINS A POINTERS EXPLAINED AS FOuLOwS; 



EM 

DH 
DT 
DP 



POINTS TO THE ERROR MESSAGE 
POINTS TO THE DATA HEADER 
POINTS TO THE DATA 
POINTS TO THE DATA FORMAT 



005362 



005362 
005 36A 
005366 
005370 



2 
3 

5 
6 
7 
8 
9 
10 

11 005372 

12 005374 

13 005376 
U 005400 
'5 

'6 
U 

18 005402 

19 005404 

20 005-;06 

21 005410 
22 

23 
24 

25 005412 

26 005414 

27 005416 

28 005420 
29 

30 
31 

32 005422 

33 005424 
% 005426 
35 005430 
36 

37 
38 

39 005432 
AO 0054 3A 

41 005436 

42 005440 



036576 
041212 
041634 
041760 



036635 
041221 
041640 
041761 



036673 
041303 
041656 
041767 



036731 
041334 
041666 
041772 



036766 
041221 
041640 
041761 



037022 
041376 
041700 
0-1760 



$EPRT8: 
.-ERROR 



1 



EMI 
DHl 
DTI 
DF1 



.-ERROR 2 



EM2 
DH2 
DT2 
DF2 



; ERROR 3 



EM3 
DH3 
DT3 
DF3 



.-ERROR 4 



EM4 

DH4 
DT4 
DF4 



.-ERROR 5 



EMS 
DH2 
DT2 
PF2 



.ERROR 6 



EM6 

0H6 
DT6 
DF1 



;RH CONTROLLER INTERRUPT OCCURRED (RMAS 0) 



.•UNEXPECTED ATTENTION OCCURRED 



;MASS8US PARITY ERROR (MCPE 1) 



.-MASSBUS PARITY ERROR (PAR-1) 



;ADDRESS PLUG BIT CHANGED 



:RH CONTROLLER DIDN'T RESPOND TO ADDRESSING 



1 00^9 



"Z«MTBC t^M05/?/2 DR C»<PT TST 
ERROR POINTER TAfiLE 



4^ 
4^ 
AS 
46 

48 005442 

49 005444 

50 005446 
005450 



51 
52 
53 

54 

55 005452 

56 005454 

57 005456 

58 005460 
59 

60 
61 

62 005462 

63 005464 

64 005466 

65 005470 
66 

67 
68 

69 005472 

70 005474 

71 005476 

72 005500 



000000 
041407 
041704 
000000 



000000 
041460 
041720 
000000 



000000 
041531 
041734 
000000 



000000 
04160? 
041750 
000000 



D 4 

HIACRO V04.00 4-APR-81 18:12:15 PAGE 8-1 

;• ERRORS 7 - 12 ARE PART OF THE "DUMP" SUBRO-JTINE 
.-ERROR 7 

0 

DH7 
0T7 
0 



SEO 004? 



.-ERROR '0 



0 

DHIO 
DT10 
0 



.•ERROR 11 



0 

DH11 
DT11 
0 



.-ERROR 12 



0 

DH12 
DT12 
0 



I 



CZRmeO RM05/5/2 DR CHPT 
ERROR POIMTER TABLE 



1 



TST P1ACR0 VOA.OO 



E 4 

4-APR-81 18:^?: 15 PAGE 9 



c 
X 

J 


005502 

\J\i J JVC 


01 1600 




4 


005504 


005740 




J 


005506 


022626 

vc c vc w 






005510 


104401 


005516 




005514 


000417 






005554 






7 


005554 


010046 




8 


005556 


104402 




9 


005560 


000240 




10 








11 


005562 


000177 


175612 


12 








15 








14 








15 


005566 


012757 


005566 

w w ^ ^ ^^^^ 


16 


005574 


012757 


000400 


17 


C05602 


000414 




18 








19 


005604 


012757 


005604 


20 


005612 


012737 


1 17777 


21 


005620 


000405 




22 








23 


005622 


012737 


00S622 


24 


005630 


005037 


001 354 


25 








26 


005654 


000240 




27 


005656 


005227 


000000 


28 


005642 


001375 




29 


005644 


000005 




50 








51 










005646 


012706 


001114 




005652 


005026 






005654 


022706 


001 1 54 




005660 


001374 






005662 


012706 


001100 



005666 
0C5674 
005702 
005710 
005716 
005724 
005732 
005740 
005746 
005754 
005760 
005764 



005772 
006000 



012737 
012757 
012737 
012737 
012737 
012757 
012737 
012757 
015757 
005057 
005057 
112757 



012757 
012757 



027520 
000540 
023662 
000540 
050100 
000340 
025400 
000340 
023512 
001 1 76 
001200 
000001 



023610 
000340 



>E0 004 



001400 
001554 



001400 
001334 



001400 



000020 
000022 
000050 
000052 
000054 
000056 
000024 
000026 
025504 



001151 



0000 H 
000016 



.•THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 
BADTnO 



;;65$: 
64$: 



MOV 
TST 
CMP 
TYPE 
BR 

.ASCI? 

MOV 

TVPOC 

NOP 

JMP 



(SP).RO .-SAVE PC WHERE THE TIME Ouf OCCURED 

-(RO) ;ADJUST PC -2 

(SP)*,(SP)* .-RESTORE STACK POINTER 
.65$ ;;TVPE ASCIZ STRING 

64$ ;;GET OVER THE ASCIZ 

<CRLF>/UNEXPECTEO BUS TIMEOUT. PC=/ 



RO.-(SP) 



aRSTART 



,S8TTL START OF PROGRAM 



START: 



MCV 
MOV 
BR 



STARTl: MOV 
MOV 
BR 

START2; MOV 
CLR 

START5: NOP 
INC 
SNE 
RESET 



*. .RSTART 

«400.CHGADR 

START3 

#. .RSTART 

#-l.CHGADR 

START5 

RSTART 
CHGAOR 



#0 



.•SETUP FOR TypJNC OUT PC 

;PUT 'HALTCO)' INSTRUCTION HERE IF YOU WISH 
;T0 STOP ON UNEXPECTED TIMEOUT. 
;J\M> TO RESTART 



.'SETUP RESTART ADDRESS 
;200 START ADDRESS FLAG 



.SETUP RESTART ADDRESS 
;204 START ADDRESS FLAG 



.SETUP RF START ADDRESS 
;210 START ADDRESS FLAG 



;TTV LOOP, WAIT FQR INCREMENT 
;0F WORD 

.•CLEAR THE WORLD 



; .'FIRST LOCATION TO BE CLEARED 
.-.CLEAR MEMORY LOCATION 
.-.DONE? 

.'.'LOOP BACK IF NO 

;; SETUP THE STACK POINTER 



.S8TTL INITIALIZE THE COMMON TAGS 
.'.'CLEAR THE COMMON TAGS ($CMTA6) AREA 

MOV #$Cm AG. R6 

CLR (R6)* 

CMP #SWR.R6 

BNE .-6 

MOV #STACK.SP 
.'.•INITIALIZE A FEW VECTORS 

MOV «SC0PE.a*10TVEC .'."lOT VECTOR FOR SCOPE ROUTINE 

MOV ir340.»riOTVEC*2 .-.'LEVEL 7 

MOV mRROR.a*EMTVEC ;.'EMT VECTOR FOR ERROR ROUTINE 
MOV *340,S#EMTVEC*2 .'.-LEVEL 7 

MOV #$TRAP.a*TRAPVEC .'.-TRAP VECTOR FOR TRAP CALLS 
MOV #540.arTRAPVEC*2.' LEVEL 7 
MOV #$PWRDN.ftrPWRVEC .'.'POWER FAILURE VECTOR 
MOV #340.a#PWRVEC*2 ;; LEVEL 7 

MOV $ENDCT.$EOPCT .-.'SETUP END-OF -PROGRAM COUNTER 
CLR $TIMES .'.'INITIALIZE NUMBER OF ITERATIONS 

CLR $FSCAPE ;; CLEAR THE ESCAPE ON ERROR ADDRESS 

M0V8 *1.$ERMAX .-.'ALLOW ONE ERROR PER TEST 

.•.•INITIALIZE THE "THBIT" TRAP VECTOR. THEN LOAD LOCATION •'$RTRN". IN 
;;THE ' tND-OF-PASS" ($EOP) ROUTINE. WITH A "RTl'-QR "'RTT". 

MOV #$RTRN.a*TBITVEC ;;SET '7" BIT VECTOR TO $R'RN 
MOV #340.S^'T6ITVEC*2 ;;tEVEL ? 



0051 



^ZRMTBO RM05/3/2 DR CMPT TST 
IMMALlZE THE COMMON TAGS 



lACRO V04.00 4-APR-81 18 



F 4 
^2:15 PAGE 9-1 



SEO 00^<. 



006006 
006014 
00602? 
006024 
006050 
006032 
0060A0 
0060A2 
006046 
006054 
006060 
006066 



52 
33 
34 
35 
36 



006220 
006224 
C06226 
006234 
006236 
006242 

006322 



012737 
012737 
005046 
012746 
000006 
012737 
000402 
062706 
012737 
005037 
012737 
01273? 



000002 
006042 

006032 



023610 
000010 



000006 023610 64$: 



000010 
000012 
023616 
006060 
006066 



000010 

001122 
001124 



MOV 
MOV 
CLR 
MOV 
RTT 
MOV 
BR 
ADD 
MOV 
CLR 
MOV 
MOV 
;;SI2E FOR A 
;; EQUAL TO A 



65$: 
66$: 



#R'I.$RTRN 
#65$,wrRESVEC 

-(SP) 

#64$. -(SP) 

*RTT.$RTRN 
66$ 

#10. SP 



;;SET $RTRN tq A RTI 

;;TRY TO DO A RTT 

;;DLJi*1Y PS 

;;AND PC 

. . jf^y JHE RTT 

;;RTT IS LEGAL— SE) $RTRN TO A RTT 



0060^4 


01 3/46 


UUUUU4 






MOV 


a#ERRVEC,-(SP) 


C06100 


012737 


0061 34 


000004 




MOV 


#67$,a#ERRVEC 


006106 


012737 


177570 


001154 




MOV 


#DSUR.£WR 


nnAi 1 L 

UUO 1 1 H 


\J \ CI Jf 


1 77'? 70 
If f jf\J 






MOV 


#DDI5P, DISPLAY 


006122 


02277? 


\77777 


173024 




CMP 


#-i,asuR 


C061 30 


001012 








BNE 


69$ 


006132 


000403 








BR 


68$ 


006134 


012716 


006142 




67$: 


MOV 


#68$. (SP) 


006140 


000002 








RT] 




006142 


012737 


000176 


001154 


68$: 


MOV 


#SUREG.SUR 


006150 


012737 


0001 74 


001 1 56 




MOV 


#DJSPRE&. DISPLAY 


006156 


012637 


000004 




69$: 


MOV 


(SP)*.d#ERRVEC 


006162 


005037 


001220 






CLR 


$PASS 


006166 


132737 


000200 


001233 




81 T8 


#APTSI2E,$ENVM 


006174 


001403 








BEO 


70$ 


006176 


012737 


001234 


001154 




MOV 


#$SUREG,SUR 


006204 








70$: 














.•SETUP 


'7JME0UT" TRAP VECTOR FOR 


006204 


012737 


005502 


000004 




MOV 


#I3ADTM0.ERRVEC 


006212 


012737 


000300 


000006 




MOV 


#PR6.ERRVEC*2 










.SSTTL 


TYPE 


PROGRAM NAME 



;;RTT ILLEGAL— CLEAN OFF THE STACK 
#RESVEC*2.a#RESVEC ; .-RESTORE TRAP CATCHER 
$T1IT ;; CLEAR "T" Sn SWITCH 

#..$LPADR .-.-INITIALIZE THE LOOP ADDRESS FOR S^OPE 

#..$LPERR .-.-SETUP THE ERROR LOOP ADDRESS 

HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
•-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 

SAVE ERROR VECTOR 
SET UP ERROR VECTOR 
SETUP FOR A HARDWARE SWICH REGISTER 
AND A HARDWARE DISPLAY REGISTER 
TRY TO REFERENCE HARDWARE SWR 
BRANCH IF NO TIMEOUT TRAP OCCURRED 
AND THE HARDWARE SWR IS NOT = -1 
BRANCH IF NO TIMEOUT 
SET UP FOR TRAP RETURN 

POINT TO SOFTWARE SWR 

RESTORE ERROR VECTOR 

CLEAR PASS COUNT 
TEST USER SIZE UNDER APT 
YES. USE NON-APT SWITCH 
NO.USE APT SWITCH REGISTER 



.-SETUP FOR UNEXPECTED TIMEOUT 
; LEVEL 6 



005227 
001036 
022737 
001432 
104401 
000427 



1 77777 
023544 
006244 



000042 



.-.-TYPE THE NAME 
INC 
BNE 
CMP 

BEQ 
TYPE 
BR 

.ASC12 



;;72$: 

71$: 
.S8TTL 



OF THE PROGRAM 

#-1 

71$ 

#$ENDAD.a#42 

71$ 

.72$ 

^1$ 

<CRLF>aCZRMTO0 



IF FIRST PASS 
FIRST TIME? 
BRANCH IF NO 
ACT-11? 
BRANCH IF YES 
TYPE ASCIZ STRING 
GET OVER THE ASCIZ 
RM05/3/2 DRIVE COMPATIBILI'Y TSTi<CRLF> 



GET VALUE FOR SOFTWARE SWITCH REGISTER 



006322 


005737 


000042 




TST 


a#42 


;;ARE WE RUNNING UTJDER XXDP/ACT? 


006326 


001012 






BNE 


73$ 


.•;8RANCH IF YES 


006330 


123727 


001252 


000001 


CMPB 


$ENV.#1 


;;ARE WE RUNNING UNDER APT? 


006336 


001406 






BEO 


73$ 


;.•8R,^NCH IF YES 


006540 


023727 


001154 


000176 


CMP 


SWR.#SWREG 


.-;SOFTWARE SWITCH REG SELECTED? 


006346 


001005 






BNE 


74$ 


; .-BRANCH IF NO 


006350 


104406 






GTSWR 




;;GET SOFT-SWR SETTINGS 


006352 


000403 






BR 


74$ 




006354 


11273' 


000001 


001150 75$: 


M0V8 


#1.$AUT0B 


;.-SET AUTO-MODE INDICATOR 



'ZS^ITBC [)R '"MP^ TST MACRO rfOA.OO 

GET vALUf fOR SOFTWARE SWITCH REGISTER 



G 4 
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00656? 

37 
58 
59 

40 

41 006562 

42 006566 
45 006574 

44 006576 

45 006404 

46 006412 
^7 006414 

48 006420 

49 006424 
006426 
006452 



74$: 



50 



0064b0 
006460 
52 006462 

55 006466 
006470 
006471 

56 006472 

57 006476 
58 

59 006500 

60 006504 
006506 
006512 



51 



54 
55 



61 



006554 
62 006554 
65 006556 

64 006542 

65 006544 

66 006545 

67 006546 
006552 

006656 

68 006656 
006642 

006756 
72 006756 
75 006742 

74 006750 

75 006756 

76 006762 

77 006764 

78 006770 

79 006772 

80 006776 

81 007002 

82 007010 
85 007014 



005057 
122757 
001160 
015757 
V2757 
105002 
105057 
005757 
001425 
104401 
000412 



005046 
115716 
104405 
001 
000 
104401 
000517 

005227 
001114 
104401 
000410 



005046 
115716 
104405 
001 
000 
104401 
000431 



104401 
000455 



004757 
015757 
015757 
012705 
005025 
022705 
001574 
012706 
005057 
015757 
005057 
00505' 



001404 
000016 

000040 
000007 

001404 
000042 

006434 



001 404 
001207 

006514 

001404 
006554 
006644 



022754 
001276 
001300 
002006 

004424 

001100 
M777t 
001520 
001544 
001 546 



;THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE 
.•PAPER TAPE (MANUAL), ACTll. XXDP CHAIN OR DUMP 



000041 

001404 
001404 



1$: 



;;76$: 
75$: 



2$: 



;;78$; 
77$: 



050524 
050526 



;;80$: 
79$: 



;;81$: 
^$: 



4$: 



001552 



CLR 

CMP8 

BNE 

MOV 

CMP8 

BHIS 

CLR8 

TST 

BEO 

TYPE 

BR 

-ASCIZ 

CLR 

M0V8 

TVPOS 

.BYTE 

• BYTE 

TVPE 

BR 

INC 
BNE 
TVPF 
BR 

.ASCIZ 

CLR 

M0V8 

TYPOS 

.BYTE 

.BYTE 

TYPE 

BR 

.ASCIZ 

TYPE 
BR 

.ASCIZ 

JSR 
MOV 
MOV 
MOV 
CLR 
CMP 
BNE 
MOV 
CLR 
MOV 
CLR 
CLR 



XXDP 

#16.S#41 

2$ 

a*40,XXDP 
#7. XXDP 
1$ 

XXDP 

a«42 

2$ 

.76$ 

75$ 

<CRLF>/NOT 

-(SP) 
XXDP,(SP) 

1 
0 

,$CRLF 
3$ 

#-1 
3$ 

.78$ 
77$ 



CLEAR 'XXDP' LOAD DEVICE STORAGE 
LOADED FROM AN RM05/5/2 ? 
GR IF NOT 

GET DEVICE INDICATOR AND NUMBER 
IS IT A VALID NUMBER ? 
YES 

NO, DEFAULT TO DRIVE 0 
CHAIN MODE OR ACT11 AUTD ACCEPT ? 
BR IF NEITHER 
;TYPE ASCIZ STRING 
.-GET OVER THE ASCIZ 
TESTING DRIVE / 



CLEAR WORD ON STACK 
GET DRIVE ADDRESS 
TYPE THE ADDRESS 
ONLY 1 CHARACTER 
SUPRESS LEADING ZEROS 
CR-LF 

GET NUMBER OF DRIVES 



<CRlF>/TQ test DRIVE / 



FIRST TIME THRU HERE 
NO 

.TYPE ASCIZ STRING 
.-GET OVER THE ASCIZ 



-(SP) 
XXDP,(SP> 

1 
0 

.80$ 
79$ 



CLEAR WORD ON STACK 
GET DRIVE ADDRESS 
TYPE DRIVE ADDRESS 
ONLY 1 CHARACTER 
SUPRESS LEADING ZEROS 
.-TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 



/. HALT PROGRAM. REMOVE RRDP PACK AND REPLACE IT/<CRLF> 

,81$ ;;TYPE ASCIZ STRING 

3$ ;;GET OVER THE ASCIZ 

/WITH A WORK PACK, CLEAR LOCATION 40 AND RESTART PROGRAM. /<CRLF> 



PC.$TKINT 

$RMADR,RMADR 

$RMVEC.RMVEC 

#ASNLST.R5 

(R5)* 

#;ndst,r5 

4$ 

#STACK,SP 

PS 

HZ.SIXTFE 

HOUR 

MINUTE 



TURN ON THE KEYBOARD INTERRUPT 

RH/RM ADDRESS 

VECTOR ADDRESS 

START OF AREA TO CLEAR 

LOOK FOR END OF CLEAR AREA 

BR IF NOT FINISHED 

SETUP THE STACK POINTER 

CLEAR THE PROCESSOR STATUS WORD 

1/60 TH OR 1/50 TH SECOND COUNTER VALUE 

CLEAR THE HOUR'S COUNTER 

CLEAR 1HE MINU'E'S COUNTER 



ZR«^TBO RM05/5/2 DR CMPT tsT f«lACHO v04.00 
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84 
8S 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 

m 

112 
113 

r4 

lib 
116 
117 
118 
-•19 
'20 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
159 
HO 



007020 
007024 



007030 
X7034 
007036 
007042 
007050 
007056 
007060 
007066 



007074 
007100 



007106 
007110 
007112 
007114 
007120 
007124 
007126 
007130 
007134 



007136 
007142 
007146 
007150 
007152 
007154 



005037 
005037 



005227 
001002 
004737 
013737 
023727 
101403 
012737 
162737 



004 737 
012737 



005001 
005002 
005003 
016300 
004737 
022322 
005201 
022701 
002367 



012700 
012701 
005020 
020100 
101375 
012737 



001 350 
001 336 



177777 

027746 
030076 
001332 

160000 
005670 



021234 
177777 



001332 
160000 

001332 
001332 



030264 



004444 
021720 



000007 



002006 
004424 



000101 001274 



CLR 
CLR 



SECOND 
CFLAG 



.•CLEAR THE SECOND'S COUNTER 
.•CLEAR THE 'CONTROL C FLAG 



.•ROU'INE TO DETERMINE BUFFER AREA Slit 



SJZWEM: INC 
BNE 

vSR 

1$: MOV 
CMP 
BLOS 
MOV 

2S: SiB 



#-1 
1$ 

PC.$SIZE 
tLSTAD.LSTAD 
LS7AD,*1 60000 
2$ 

#160000.LSTAD 
#1500,»?,LSTAD 



SEE IF TIME TO SIZE MEMORY 
BR IF NOT 

SEE HOW MUCH MEMORY ON SYSTEM 
SAVE THE LAST ADDRESS 
OVER 28k ? 

NO. THEN DON'T SET THE NEW LIMIT 
SET NEW LIMIT 

SAVE XXDP LOADER AND ABSOLUTE LOADER 



.SET UP THE OTHER SYSTEM DEVICES THAT THE PROGRAM WILL USE 

SETVEC: JSR PC.CKCLK ; START THE CLOCK 

MOV #-1.SAVEFG ;SET THE SAVE REGISTERS FLAG 

.•SETUP If 'XXDP* OR 'ACT11' OPERATION 

MONTR 



CLR R1 

CLR R2 

CLR R3 

1$: MOV BLKADR(R3^R0 

JSR PC.CLRDPB 

21: CMP (R3)»,(R2)* 

INC Rl 

CMP #7,R1 

BGE IS 



DRIVE # 
AVAIL TABLE INDEX 
DRIVE^f X 2 
LOAD DPS ADDRESS 
CLEAR DPS BLOCK 
INCREMENT INDEX 
NEXT DRIVE 
ALL DRIVE ASSIGN ? 
NO 



ASSIGN LOGICAL DRIVES TO BE TEST IN THE PASS1 AND PASS 2 

THREE WORDS ARE USED IN THE BIT MAPS: 

ASNLST = SPECIFIES THE LOGICAL DRIVES ASSIGNED 

ASSGNl = SPECIFIES THE LOGICAL DRIVES WILL BE TESTED IN PASS! 

ASSGN2 = SPECIFIES THE LOGICAL DRIVES WILL BE TESTED IN PASS2 

EACH LOGICAL DRIVE HAS A HISTORY FILE LABELED DIRV'Z (2-0 TO 17) 
THE LOCATIONS LABELED SSYS^#1 AND SPHYRD IN THE HISTORY FILE 
STORE THE SYSTEM NAME (A TO H) AND PHYSICAL DRIVE Nlf«ER 
(0 TO 7). 

THE SUB-SVSTEM ADDRESS AND INTERRUPT VECTOR ARE STORED 
IN THE TABLE LABELtD "SYSADR:". 

THE LOCATIONS SYSADR AND SYSADR*2 FOR SUB-SYSTEM A.SYSADR+4 

AND SYSADR+6 FOR SUBSYSTEM B . ETC. THE FIRST WORD 

IS THE sue SYSTEM ADDRESS WFIILE THE SECOND WORD IS THE VECTOR 

THE LOGICAL DRIVES ARE ASSIGNED FROM CONSOLE KEYBOARD. 



MODOO: 
^S: 



MOV 
MOV 
CLR 
CMP 
BHI 
MOV 



#ASNLST,RO 

fflNDST.Rl 

(RO)* 

RI.RO 

IS 

#'A.SCDW2 



ADDRESS OF 1ST BIT MAPS IN RO 

LAST ADDRESS TO CLEAR 

CLEAR CURRENT POINTED ADDRESS 

ALL DONE ? 

NO. THEN BRANCH BACK 

TEMP STORAGE OF SYS '^lAME 



C2RMTB0 RM05/5/2 OR CMPT TST MACRO v04 
GET VALUE FQR SOFTWARE SWITCH REGISTER 



,00 <.-APR-81 



41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 



167 
168 
169 
170 
171 
172 
173 
V4 
1/5 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 



007162 
007166 
007172 
007176 
007202 
007206 
007212 
007216 

007222 
007224 
007226 
007230 
007232 
007236 
007240 
007246 
007254 
007256 
007262 
007264 
007270 
007272 
007276 
007300 
007302 
007303 
007304 
007310 
007312 
007314 
007316 
007320 
007324 
007326 

007330 
007334 
007336 
007342 
007346 
007350 
007352 
007354 
007360 

007364 
007370 
007372 
007376 
007402 
007410 
007414 
007420 
007426 



005037 
104401 
104401 
104401 
104401 
104401 
104401 
104401 

104411 
012601 
105711 
001437 
004537 
000751 
156237 
022737 
001016 
005737 
001413 
123702 
001010 
104401 
010246 
104403 
002 
000 
104401 
000724 
005201 
105711 
001404 
122721 
001316 
00C737 

005737 
003055 
013701 
042701 
005301 
006301 
006301 
062701 
010137 

005737 
001416 
013700 
011037 
016037 
004737 
013710 
013760 
000406 



001 224 
001207 
041776 
042644 
001274 
042644 
042752 
042006 



022410 

030312 
176700 

001404 

001404 

043326 



043336 



000054 



M0D21 



IS: 



001224 
001 276 



2$: 



CLR 
TYPE 

TYPE 

TYPE 
TYPE 
TYPE 
TYPE 
TYPE 

RDLIN 

MOV 

TST8 

BEQ 

JSR 

BR 

BISS 

CMP 

BNE 

TST 

BEQ 

CMPe 

BNE 

TYPE 

MOV 

TYPOS 

.BYTE 

.BYTE 

TYPE 

BR 

INC 

TST8 

BEO 

CMPe 

BNE 

BR 



001334 




3$: 


TST 








BGT 


001274 






MOV 


1 77760 






BIC 








DEC 








ASL 








ASL 


002014 






ADD 


001272 






MOV 


001224 




M0D23: 


TST 








BEO 


001272 




1$: 


MOV 


001276 






MOV 


000002 


001 300 




MOV 


036300 






JSR 


001276 






MOV 


001300 


000002 




MOV 






?$: 


BR 



I 4 
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SEO 004' 



DRIVE 

.SCRLf 

,MESG1 

.QUOTM 

,SCDW2 

.QUOTM 

.8LNKS1 

,m:sg2 



(SP)*,R1 

(R1) 

3S 

R5.CK.0CT 
M0D21 

ATA8IT(R2), DRIVE 
«1 76700, SRMADR 
2$ 

XXDP 
2S 

XXDP,R2 
2$ 

.QDRIV 
R2,-(SP) 

2 
0 

.LODEV 

M0D21 

R1 

(R1) 
3$ 

#',,(R1)* 

M0D21 

IS 

CHCADR 

MO022 

SCDW2.R1 

#177760,R1 

R1 

R1 

R1 

#SYSADR,R1 
RI.SCDWl 

DRIVE 
2S 

SCDWl .RO 

(RO).SRMADR 

2(R0).SRMVEC 

PC .8USADR 

SRMADR.fRO) 

SRMVEC,2(R0) 

M0D11 



TE»*' STORAGE OF PHYSICAL DRIVE BIT MAP 
CR-LF 

Ste-SYSTEM 

TYPE •"• QUOTATION MARK 

SYS-NAME(A TO H) 

TYPE •*" QUOTATION MARK 

TYPE 1 BLANK 

DRIVE(S} 

READ IN THE DRIVE NUMBERS 
GET THE INPUT LINE ADDRESS 
END OF STRING <CR> ? 
YES 

CHECK THE DIGIT MUST 0 TO 7, RE TURN VALUE IN R2 
INCORRECT DRIVE NIW3ER. ENTER AGAIN 

;SET THE PHYS. DRIVE BIT, R2 - DRIVE Nl^ER 
IS IT STANDARD RH/RM ADDRESS ? 
BR I F NO 

IS THIS LOAD DEVICE ? 
8R IF NO 

IS THIS THE DRIVE ? 
BR IF NO 
TYPE • 7DRIVE* 
.•SAVE R2 FOR TYPEOUT 
;G0 TYPE— OCTAL ASCII 
;TVPE 2 DIGITUS) 
.•SUPPRESS LEADING ZEROS 
TYPE MS LOAD DEVICE' 
TRY AGAIN 

EW) OF STRING <CR> ? 
YES 

MUST BE A COMMA 
ENTER AGAIN .IF NOT 
LOCATE NEXT DRIVE 



START AT 200 ? 
BRANCH IF SO 
SYS NAME ASCII FROM A 
LEFT ONLY 4 BITS 
ADJUST INDEX VALUE 
2 WORD i;«EX VALUE 



TO H 



SYS ADDRESS TABLE ADDRESS 
SYS ADDRESS TABLE'S ENTRY TO CDWl 

CHECK IF ANY PHYSICAL DRIVE(S) ASSIGNED 

BRANCH IF NONE 

SYS ADDRESS TABLE ENTRY 

SYS ADDRESS 

SYS VECTOR 
CHECK THE ADDRESS WITH THE OPERATOR 
NEW RH/RM ADDRESS INTO TABLE 
NEW VECTOR OF RH/RM INTO TABLE 
BRANCH TO NEXT MODULE 



fZRMTBO RM05/V2 DR CMPT TST »WCRO VC4 
GET VAI UE FOR SOFTWARE SWITCH REGISTER 
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J 

PAGE 



4 

9-!) 



SEO 0048 













007430 


01 3737 


CC1276 






013737 


001 300 

vW I -/vw 


^9ft 
















C vv 








?01 








POP 
















?04 
















C\f\J 


007444 


0057'7 


001224 


207 


007450 


001002 




208 


007452 


0001 37 

WW 1 J* 


00762^ 

WW • Wb ' 


209 








210 


007456 


022737 

wc c • ^ • 


}77777 


21 1 


00/464 


001457 




212 


007466 


013700 


002006 

WwL VVw 


213 


007472 


012701 

W it' w ■ 


000001 

WWWW • 


214 


007476 


005002 

W «/ Wb 




215 


007500 


030100 




216 


007502 


001 406 




217 


007504 


000241 

WWWt ~ 1 




218 


007506 


006101 




219 


007510 


103445 




220 


007512 


062702 


000002 


221 


007516 


000770 




222 


007520 


016204 




223 


0C7524 


1 1 3764 


001274 


224 


007532 


050137 


002006 


225 


007536 


050137 


002010 


226 


007542 


050137 


00201 2 


227 


007546 


005002 




228 


007550 


1 36237 


030312 


229 


007556 


001005 




230 


007560 


005202 




231 


007562 


020227 


000007 


232 


007566 


003770 




233 


007570 


000415 




234 


007572 


110214 




235 


007574 


1 1 1 464 


00001 5 


236 


007600 


152764 


000060 


237 


007606 


1 12764 


000011 


238 


007614 


146237 


030312 


239 


007622 


001 31 5 




240 


007624 






241 








?4? 


007624 


005737 


001 334 


243 


007630 


003100 




244 


007632 


022737 


1 77777 


245 


007640 


001474 




246 


007642 


104401 


042651 


247 


007646 


104401 


042006 


248 


007652 


005003 




249 


007654 


012704 
030437 


000001 


250 


007660 


002006 


251 


007664 


001421 





002014 MOD22: MOV $«MADR,SYSADR ;LOAD THE SYSTEM ADDRESS TABLE 
002016 MOV $RMVEC.SYSADR>2 ;LOAD THE VECTOR 

$CDW2 = ASCII NAME OF SUB SYSTEM (A TO H) 
SCDWI = ENTRY TO THE SYS ADDRESS TABLE 
DRIVE = PHYSICAL DRIVES TO BE ASSIGNED 

THIS SECTION OF CODING USES THE ABOVE PARAMETERS 
TO SET UP 'ME BIT MAP OF ASNLST,ASSGN1 ,ASSGN2 



000014 



MODll : 



002006 MOD 30: 



1$; 



00001 5 
000016 
001224 



002006 



2$: 



001224 3$: 



4S: 



5$: 

MODI 2: 

1$: 

21: 

3$: 



TST DRIVE 

BNE MOD 30 

JMP MOD 12 

CMP *-1,ASNLST 

BEO 5S 

MOV ASNLST.RO 

MOV #1 ,R1 

CLR R2 

BIT R1>R0 

BEO 2S 
CLC 

ROL R1 

BCS 5$ 

ADD #2,R2 

BR IS 

MOV BLKADR(R2),R4 ; 

MOVB SCDW2,SSYSNM(R4} 

BIS Rl.ASNLST 

BIS Rl.ASSGNI 

BIS R1,ASSGN2 

CLR R2 

BITS ATABIT(R2) .DRIVE 

BNE AS 

INC R2 

CMP R2,*7 

BLE 3S 

BR 5S 

MOVB R2.(R4) 

MOVB <R4),SPHYDR(R4) 

BIS8 #*0,S»»HYDR(R4) 

MCV8 #HT.$GAP(R'.) 

BIC8 ATA8IT(R2). DRIVE 

BNE MOD 30 



TST CHGADR 

BGT 7$ 

CMP #-1,ASNLST 

BEO 7f 

TYPE ,MESG5 

TYPE .MESG2 

CLR R3 

MOV *1.R4 

BIT R4,ASNLST 

BEO 5S 



ANY DRIVE ASSIGN ? 
BR IP YES 
BRANCH, IF NONE 

HAVE ALL 16 LOGICAL DRIVES BEEN ASSIGNFD ■> 
BR IF YES 

FOUND THE AVAILABLE LOGICAL DRIVE LOCATION 
START FROM LOGICAL DRIVE 0 
INDEX VALUE 

IS THE LOGICAL DRIVE AVAILABLE ? 
YES 

NEXT LOGICAL DRIVE 
BRANCH IF NONE IS AVAI'ABLE 
INCREMENT INDEX VALUE 
LOCATE NEXT LOGICAL DRIVE 
GET THE LOGICAL DRIVE'S HISTORY FILE 
.•LOAD THE ASCII SYS NAME 
SET LOGICAL DRIVE ASSIGN BIT 
SET PASS 1 BIT 
SET PASS 2 BIT 
DRIVE » 

;iS THIS DRIVE ASSIGNED ? 
8R IF YES 

PHYSICAL DRIVE Nl/BER 
ALL DRIVES DONE YET ? 
BR IF NO 
YES. EXIT 

LOAD THE PHYSICAL DRIVE # INTO HISTORY FILE 

GET PHYSICAL DRIVE NUMBER AND 

MAKE IT ASCII. 

MAKE UP FOR SCORE TyPE 

.DEASSIGN DRIVE BIT FROM LIST 
.•BRANCH IF NOT ALL DONE 



200 START ? 
YES. THEN EXIT 
FULL HOUSE 
YES. THEN EXIT 
WILL TEST 
DRIVE(S) 

INDEX TO LOGICAL DRIVE HISTORY FILE 
BIT MAP OF ASNLST 
ASSIGNED LOGICAL DRIVE ? 
NO 



CZRMTBO RM05/V2 DR CMPT TST HACftO V04.00 4-APR-81 
6 GET VALb? FOR SOFTWARE SWITCH REGISTER 





016305 

W I W -J\J J 


004444 








MOV 


Q07fi72 

CJJ VA/f 0» C 


126537 


000014 

W WW W 1 » 


001274 






CW8 




001005 

WW 1 WWi^ 










BNE 


?SS 00770? 


111546 










MOve 


?S6 007704 


104403 

1 W^ ~ w — ' 










TYPOS 


?S7 fj0770f» 


001 

WW 1 










.8VTE 


?S8 007707 


000 

www 










.RVTE 


PSQ 007710 


104401 

1 Wf ~W 1 


042752 








TVPE 


P^^O 00771 ^ 


062703 

WUC ' \J~J 


000002 

WWWWWL 




4$: 


ADD 


007720 

Cw 1 WW' ' CW 


000241 










CLC 


pA? 007722 

CwC WW' ' CC 


006104 

WWW ' w^ 










ROL 


?A7 007724 

twJ WW' ' 


103401 










BCS 


264 007726 

Cw^ WW' ' 


000754 










BR 


265 007730 

^^JJ WW' • JW 


104401 


042664 




5S: 


TYPE 


?66 007734 

CWU WW r * 


104401 


041776 








TYPE 


?67 007740 

^W' WW' ' ~w 


104401 


0426A4 








TYPE 


268 007744 

WW » ~ ~ 


1 04401 


001274 








TYPE 


269 007750 

bW7 W' ' ^W 


104401 


042644 








TYPE 


270 














271 C07754 

C » 1 WW* ' 


005237 


0C1274 








INC 


272 007760 

C ' C WW ' ' w*/ 


122737 


000110 


001 274 






CfIPe 


273 007766 

L • WW > * 


103421 










BLO 


274 007770 

t ' ~ WW f • • w 


104401 


001207 








TYPE 


275 007774 


104401 


042670 








TYPE 


276 010000 

C ' W W 1 wvww 


104410 
012637 










RCCHR 


277 010002 


001 1 74 








MOV 


278 010006 


023727 


001 1 74 


000131 






CMP 


279 010014 


001004 










BNE 


280 010016 


104401 


042741 








TYPE 


281 010022 


000137 


007162 








JMP 


282 010026 


104401 


042744 




6S: 


TYPE 


283 010032 


005737 


001334 




7$: 


TST 


284 010036 


001402 










BEQ 


285 010040 


000137 


010054 








JMP 


286 010044 


005037 


002010 




8$: 


CLR 


287 010050 

^\JI W I WW^W 


000137 


012460 








JMP 


288 












ONE, THE 


289 










PASS 


290 












scowl 


291 












$C0W2 


292 












SDEVn 


293 












ASNLST 


294 












ASSGNl 


295 












RO 


296 

b ^w 












Rl 


297 














298 010054 


005737 


002010 




XPASSl 


: TST 


299 010060 


001002 










BNE 


300 010062 


000137 


011004 








JMP 


301 














302 010066 


005037 


001270 




1$: 


CLR 


303 010072 


013737 


004444 


001272 






MOV 


304 010100 


112737 


000101 


001274 






MOVR 


305 010106 


013737 


002014 


030324 






MOV 


306 010114 


013737 


002016 


030326 






MOV 


307 010122 


013701 


001272 








MOV 


308 010126 


012777 


017444 


020172 






MOV 



K 4 
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SEO 0049 



BLKADR(R5),R5 ;LOAD THE HISTORY FILE ADDRESS 
$SYSNM(R5).$CDW2 ;0N THE SAME SYSTEM ? 



4$ 

(R5),-(SP) 

1 

0 

,8lN((S1 
*2.R3 

R4 
5$ 
3S 

.MtSG6 
,MESG1 
,OUOTM 
,$CDW2 
.OUOTM 

$CDW2 

4r'H.SCDW2 

7> 

.SCRLF 
.MESG7 

(SP)*,STMPO 

$TMPO.*'Y 

6$ 

.Y 

M0D21 
.N 

CKGAOR 
8S 

XPASSl 
ASSGNl 
XPASS2 



;N0 

;TYPE THE PHYSICAL DRIVE * 



TYPE 1 BLANK 

INCREMENT TO NEXT LOCrCAL DRIVE 

BIT MAP OF THE NEXr LOGICAL DRIVE 
BRANCH IF ALL LOGICAL DRIVE'S CHECKED 
BRANCH BACK 
ON 

SUB SYSTEM 

TYPE •"• QUOTATION MARK 
A TO H 

TYPE •"• QUOTATION MARK 

CHECK NEXT SUB SYSTEM 

ALL EIGHT SUB SYSTEMS CHECKED? 

YES 

CR-LF 

ASK FOR OTHES SUB SYSTEM 
REAP IN A LINE 
GET INPUT CHARACTER 
IS IT INPUT 'YES* ? 
BR IF NO 

TYPE 'V* CHARACTER 

SET UP OTHER SUB SYSTEM 

TYPE 'N' CHARACTER 

START AT 210 

vES, EXECUTE PASS2 ONLr 

TO PASS1 

CLEAR THE PASS1 BIT HAP 
;-8RANCH TO PASS2 



VARIABLES ARE ASSIGNED AS FOLLOWS: 
= ADDRESS OF THE CURRENT LOGICAL DRIVE HISTORY FILE 
= SYSTEM NAME A THROUGH H 
= CURRENT LOGICAL DRIVE # 
= ASSIGNED LOGICAL DRIVES 
= ASSIGNED LOGICAL DRIVES IN THIS FASS 
= ADDRESS OF DPB BLOCK FEEDED INTO DRIVER-HANDLER 
= TEMP STORAGE OF ADDRESS OF THE LOGICAL BLOCK 



ASSGNl 
IS 

ENDXl 
SDEVM 

BLKADR,$CDW1 

/ir'A.$CDW2 

SYSADR.RMADR 

SYSADR*2.RMVEC 

SCDW1,R1 

#IDLEX,8RMVEC 



ANY DRIVES ASSIGNED FOR PASSl 
BR IF YES. ELSE GO TO 
END OF PASS 1 

INDEX OF LOGICAL BLOCK 
ADDRESS OF LOGICAL BLOCK 0 
SYS NAME STARTS FRCM A 
LOAD SYS-TEM A INTO 
DIRVER-HANDLER 

R1=ADDRESS OF LOGICAL BLOCK 1 
RESET ALL INTERRUPT VECTOR 



rZRMTBO RM05/3/2 DR CMPT TST MACRO V0<..00 «.-APR-81 
0057 GE' VALUE FOR SOFTWARE SWITCH REGISTER 





010154 


005077 


0201 70 






CLR 




010140 


104401 


001207 
042021 






TYPE 


31 1 




104401 






TYPE 


312 


010150 


104401 


042664 






TYPE 


313 


0101 54 


104401 


041776 






TYPE 


31^ 


010160 


104401 


042644 






TYPE 


315 


0l0l64 


104401 


001274 






TYPE 


316 


0101 7o 


104401 


042644 






TYPE 


317 


010174 


111137 


001224 






M0V8 


318 


010200 


104401 


001207 






TYPE 


319 


010204 


104401 


042045 






TYPE 


320 


010210 


104401 


001274 






TYPE 


321 


010214 


1 1 3746 


001224 






M0V8 


322 


010220 


104403 








TYPOS 


323 


010222 


001 








• BYTE 


324 


010223 


000 








.8 TE 


325 


010224 


104401 


042752 






TYPE 


326 


01 0230 


1 04401 


042073 






TYPE 


327 


010234 


104401 


001 207 






TYPE 


328 


010240 


104401 


042106 






TYPE 


329 


01 0244 


1 04401 


042752 






TYPE 


330 














331 


010250 


104411 






2$: 


RDLIN 


332 


010252 


01 2602 








MOV 


333 


010254 


105712 








TST8 


334 


010256 


001374 








BNE 


335 


010260 


004737 


030334 






JSR 


336 


010264 


012737 




030264 




MOV 


337 


010272 


012737 


yinn 


030266 




MOV 


338 


010300 


013700 


001224 






nov 


339 


010304 


105760 


030206 






TST8 


34U 


010310 


003467 








BLE 


3A1 


010312 


105760 


030216 






TST8 


342 


010316 


003464 








BLE 


343 


010320 


116037 


030216 


001402 




MOVB 


344 


010326 


012737 


000022 


001372 




nov 


345 


010334 


122760 


000007 


030216 




CMPS 


346 


010342 


001403 








BEO 


347 


010344 


012737 


000004 


001372 




nov 


348 














349 


010352 


012700 


004506 




3$: 


nov 


350 


010356 


113710 


001224 






nov8 


351 


010362 


012760 


043456 


000006 




nov 


352 


010370 


012760 


004526 


000014 




nov 


353 


010376 


012760 


1 77400 


000004 




nov 


354 


010404 


01376C 


001374 


000012 




nov 


355 


010412 


113760 


001372 


00001 1 




nov6 


356 


010420 


105060 


000010 






CLRB 


357 


010424 


112760 


000171 


000002 




nove 


358 

i59 














010432 


004037 


031062 




4$: 


JSR 


360 


010436 


004506 








FMTDP8 


361 


010440 


000774 








Bft 


362 


010442 


005737 


004524 




5$: 


TST 


363 


010446 


001775 








BEO 


364 


010450 


100015 








8PL 


365 


010452 


062737 


000002 


004516 




ADD 



L 4 
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SFO 0050 



SRMVEC»2 

,$CRLF 

.MESG3 

.nESG6 

,MESG1 

,0U0TM 

.$CDW2 

.QUOTW 

(R1). DRIVE 

.SCRLF 

.nESG4 

.$CDW2 

DRIVE. -(SP) 

1 

0 

.8LNKS1 

.MESG8 

,$CfiLF 

.MESG9 

,BLNKS1 



CLEAR THE INTERRUPT LEVEL 
CR-LF 

STARTING PASS 1 

ON 

SUB-SYSTEM 

TYPE •••• QUOTATION MARK 

SYS-NAME(A TO H) 

TYPE QUOTATION MAAK 

LOAD THE PHYSICAL DRIVE * 

CR-LF 

MOUNT PACK ON THE DRIVE 
SYS-NAME(A - H) 
TYPE THE DRIVE * 



.•TYPE 1 BLANK 
; CR-LF 

.-TYPE 1 BLANK 



(SP)*.R2 

(R2) 

2$ 

PC.RMINIT 

#-1.SAVEFG 

*-1.SEEKFG 

DRIVE, RO 

DRVSTA(RO) 

6S 

DRVTVP(RO) 
6S 

ORVTYP(RO>,DTYP 
#18..TRKLnT 
#7,DRVTYP(R0) 
3S 

#4.TRKLnT 



CHECK If O.P. READY 
LOCATE THE INPUT LINE 
FOLLOW BY <CR> ? 
BRANCH IF NOT 
INITIALIZE THE SUB SYSTEM 
SAVE ALL RH/RH REGISTERS 
DON'T DO IMPLY SEEK 

RO=PHYSICAL DRIVE * OF THE SUB SYSTEM 

DRIVE EXIST ANH ON LINE ? 

BRANCH IF NOT 

DRIVE IS AN Rn05/3/2 ? 

BRANCH IF NOT 

GET DRIVE TYPE TO BE TESTED 
GET LAST TRACK FOR AN RHOS 
IS DRIVE AN RM05 ? 
BR IF YES 

GET LAST TP^CK FOR AN RnOj/2 



/TFMTDPB.RO ;DP8 ADDRESS 

DRIVE. (RO) .-LOAD THE DRIVE NUMBER 

«8UFFER,$8UF(H0) ;LOAD BUFFER ADDRESS 
#Rn.REG,14(R0) .-AREA TO SAVE ALL RH/RM REG'S 
4r-256..iwRDn(R0) .-UORD COUNT (NEG) 
CYLinT.$CYL(RO) .-CYLINDER 822. 
TRKLrtT.$TRK(RO) ;GET TRACK ADDRESS 
$SEC(r6) ;SEC 0 

4fRDDAT.$C0nND(R0) .READ DATA COMMAND 



R0.Rn05 
4$ 

FMTDPB»16 

5$ 

7$ 

#2,FMTDPB*10 



CALL THE DRIVER-HANDLER 

PARAMETER ADDRESS 

LOOPING IF QUEUE IS NOT SUCCESSFUL 

COMMAND DONE ? 

BRANCH IF NOT 

BRANCH IF DONE. WITHOUT ERROR 
TRY NEXT SECTOR (0.2.4.6.8) 



CZRMTBO RM05/3/2 DR CMPT TST MACRO V04.00 
GET VALUE FOR SOFTWARE SWITCH REGISTER 



M 4 
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SfO 0051 



366 010460 

367 010466 
368 

369 010470 

370 010474 

371 010500 
372 

373 
374 
375 
376 

377 010504 

378 010510 

379 010>14 

380 010516 

381 010522 

382 010524 

383 010530 
584 010532 
385 010536 
386 

387 010540 

388 010546 

389 010550 

390 010554 

391 010560 

392 010564 

393 010566 

394 010574 
395 

396 010576 
39 010602 

398 010606 

399 010614 

400 010616 

401 010622 

402 010626 

403 010632 
404 

405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 

419 010636 

420 010640 

421 010642 
422 



122737 
101361 

104401 
104401 
000137 



012704 
022714 
001411 
022704 
101406 
004537 
000422 
062704 
000764 

032777 
001404 
012700 
004737 
105760 
001022 
112760 
000716 

104401 
104401 
032777 
001404 
012700 
004737 
000137 
000137 



010146 
010246 
010346 



000010 004516 



001207 
042U2 
011004 



6S: 



CMP8 #8..FI>1TDPB*10 

BHI 4$ 

TYPE .SCRLF 

TYPE ,MESG10 

JMP ENDXl 



.-ALL FIVE SECTORS CHECKED -> 
; NO, THEN TRY AGAIN 

; CR-LF 

.DRIVE IS NOT READY 
;STOP THE TEST 



;BAD SPOT FILE IS RETHIVED. IS STORED FROM BUFFER*4 TO BUFFER*256. FIRST 
.-WORD CYLINDER », SECOND WORD TRK AND SEC NUMBERS, FRF IS TERMINATED BY 
;A -1 IN THE CYLINDER NUMBER. 



045466 




7$: 


MOV 


#euFFER*10,R4 


R4 ADDRESS OF BAD SPOT FILE 


Mim 




8$: 


CMP 


#-1,(R4) 


END OF BAD SPOT FILE ? 






BEO 


9$ 


YES 


044456 






CMP 


*8UFFER*1000,R4 . 


END OF BAD SPOT FILE ? 






BLOS 


9$ 


BRANCH IF IT IS 


010636 






JSR 


R5.SP0TX 


CHECK THE CYLINDER POINTED BY CR4) 






BR 


11$ 


BRANCH IF BAD SPOT IN THE TEST ZONES 


000004 






ADD 


#4,R4 


NEXT BAD SF>OT ADDRESS 






BR 


8$ 


LOOPING BACK 


000200 


170406 


9$: 


BIT 


*8IT7,aSWR 


•SWITCH 7 SET ? 








BEQ 


10$ 


•BRANCH IF NOT SET 


004506 






MOV 


#FMTDP8,R0 


•DPS ADDRESS 


020702 






JSR 


PCPRTBAO 


;PRINT THE BAD SPOT FILE 


000010 




10$: 


TST8 


$SEC(RO) 


;SECTOR 10 HAS BEEN READ ? 






BNE 


13$ 


;8RANCH IF SO 


000012 


000010 




M0V8 


#10..$SEC(R0) 


;READ SECTOR 10 






BR 


4$ 


;LOOPING BACK 


0t,22Q7 




11$: 


TYPE 


,MESG11 


;PACK NOT ACCEPTABLE 


001207 






TYPE 


.$CRLF 


; CR-LF 


000200 


170340 




BIT 


«Bir7,aswR 


;SWJTCH 7 SET ? 






BEQ 


12$ 


jBRANCH IF NOT SET 


004506 






MOV 


#FMTDP8.R0 


;DPB ADDRESS 


020702 






JSR 


PC.PRTBAD 


.TYPE THE BAD SPOT FILE 


010054 




12$: 


JMP 


XPASSl 


.RESTART PASS 1 


011020 




13$: 


jnp 


TST1 


; PROCEED TO TEST 1 



SUBROUTINE SPQTX 

SEE If THE CYLINDER POINTED BY (R4) IS IN THE TESTING ZONES 
BELOW: 

(0-15. 128-143. 256-271. 384-399. 512-527, 640-655. 768-783. 
112-1^7. 240-255. 368-363, 496-511. 624-639. 752-767. 17-32. 
145-160. 273-288. 401-416. 529-544. 657-672. 785-800 AND 620) 



CALL 



SPOTX: 



JSR 

RET1 

RET2 

MOV 
MOV 
MOV 



R5, SPOTX 



RI,-(SP) 
R2,-(SP) 
R3.-(SP) 



;R4=P0INT TO CYLINDER Nl/«ER 
.-ERROR RET 
; NORMAL RET1 

;SAVE R1 THROUGH R3 



CZRMTBO RM05/5/2 DR CMPT TST MACRO VOA.OO 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
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423 01064A 
A2A 010646 

425 010650 

426 010652 

427 010654 

428 010660 

429 010664 
450 010670 

431 010674 

432 010700 

433 010702 

434 010704 

435 010710 

436 010712 

437 010714 
438 

439 010720 

440 010724 

441 010726 

442 01 0730 

443 010734 
444 

445 010736 

446 010740 

447 010742 

448 010744 

449 010746 

450 010750 
451 

452 010752 

453 010756 
45<. 010760 

455 010764 

456 010766 

457 010770 

458 010774 

459 010776 

460 011000 

461 011002 
462 

463 011004 

464 011010 

465 011014 
466 

467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 



005003 
005046 
005046 
005046 
012746 
012746 
012746 
012701 
012702 
021401 
103410 
062701 
021401 
101002 
052703 

162701 
005302 
001403 
062701 
000761 

012602 
012601 
005702 
001355 
005701 
001353 

021427 
001002 
052703 
005703 
001002 
062705 
012603 
012602 
012601 
000205 

104401 
104401 
000177 



000007 
000021 
000007 
000160 
000006 



000017 

000002 
00001 7 

0C0200 



001 1 54 
000002 

000002 



001207 
043044 
1 70360 





CLR 


R3 




CLR 


-(SP) 




CLR 


-(SP) 




CLR 


-(SP) 




MOV 


*7^-{SP) 




MOV 


#17. ,-{SP) 




MOV 


#7,-(SP) 




MOV 


*112. ,R1 




MOV 


*6,R2 


1$: 


CMP 


(R4) ,R1 




BLO 


3S 




ADD 


#15. .R1 




CMP 


(R4) ,R1 




BHJ 


2$ 




BiS 


#8JT1.R3 


2$: 


SUB 


#15. ,R1 


3$: 


DEC 


R2 




6E0 


4$ 




ADD 


#128.,R1 




BR 


1S 


4S: 


MOV 


(SP)*,R2 




MOV 


(SP)+,R1 




TST 


R2 




BNE 


U 




TST 


R1 




BNE 


IS 


5$: 


CMP 


(R4).#620. 




BNE 


6$ 




BIS 


#8JT1,R3 


6$: 


TST 


R3 




BNE 






ADD 


K2,R5 


7S: 


nov 


(SP)*.R3 




MOV 


{SP)-.R2 




nov 


(SP)*,R1 




RTS 


R5 


ENDXl: 


TYPE 


,$CRLF 




TYPE 


.MESG21 




JMP 


iRSTART 



ERROR FlAG 
DUMMY PAIR 
DUMMY PAIR 

ZONE STARTING ADDRESS 

SEGMENT NUMBER 

ZONE STARTING ADDRESS 

SEGMENT NUMBER 

R1=Z0NE STARTING ADDRESS 

R2=SEGMENT NUMBER 

CYL IN THE ZONE ? 

BRANCH IF NOT 

CHECK WITH THc UPPER BOND 

CYL IN THE ZONE ? 

BRANCH IF NOT 

SET THE ERROR FLAG 

RESTORE TO THE LOWER BOND 

DECREMENT THE SEGMENT COUNT 

ALL SEGMENT CHECKED ? 

ADJUST ZONE STARTING ADDRESS 

LOOPING BACK UNTIL ALL SEGMENTS ARE CHECKED 

;POP THE NEXT SET OF ZONE PARAMETERS 

DUMMY PAIR 
BRANCH IF NOT 
DUMMY PAIR 
BRANCH IF NOT 

ON CYLINDER 620 ? 
NO 

SET ERROR FLAG 
ANY ERROR ? 
YES 

AD'UST FOR NORMAL RETURN 
RESTORE R3 THROUGH Rl 



.'EXIT 
CR-LF 

DRIVE NOT ONLINE OR NOT ASSIGNED 
Jiff TO RESTART 



THE FOLLOWING CODING FOR TEST 1 THROUGH TEST 4 

PARAMETER IN TST 1 

$CDW1 = ADDRESS OF LOGICAL DRIVE BLOCK 

DRIVE = PHYSICAL DRIVE # 

SDEVM = LOGICAL DRIVE M 0-17 

ASSGNl - ASSIGN LOGICAL DRIVE BIT MAP 

ASNLST = ASSIGNED LOGICAL DRIVE MAP INDICATOR 

$CDW2 = SYS-NAME 

$CDW2, DRIVE ARE ONLY CHANGED IN TST1 DURING PASS 1 
SDEVM.ASS6N1,$CDW1 ARE CHANGED Bv THE TEST 4 

TST 1 .-DIRECT OPERATOR TO MOUNT AND LOAD PACKS 



rZRMTBO Rfi05/5/2 DR CHPT TST 
GET vALUe fOR SOFTWARE SWITCH 

480 



>1ACW) V(K, 
REGISTER 



00 <.-APR-81 



481 








• * 

TST1 : 




011020 


000004 






SCOPE 


011022 


012737 


000001 


001 1 76 




MOV 


482 011030 


012737 


000001 


001340 




MOV 


483 011036 


012706 


001100 






MOV 


484 011042 


023737 


001272 


004444 




CMP 


485 011050 


001551 








BEQ 


48^ 011052 


013701 


001272 






MOV 


487 011056 


126137 


000014 


001274 




CMP8 


488 011064 


001426 








BEQ 


439 011066 


116137 


000014 


001274 




M0V8 


490 011074 


012777 


01 7444 


01 7224 




MOV 


491 011102 


005077 


01 7222 






CLR 


492 011106 


104401 


001207 






TYPE 


493 011112 


104401 


042021 






TYPE 


494 011116 


104401 


042664 






TYPE 


495 011122 


104401 


041776 






TYPE 


496 011126 


104401 


042644 






TYPE 


497 011132 


104401 


001274 






TYPE 


498 011136 


104401 


042644 






TYPE 


499 011142 


111137 


001224 




1$: 


M0V8 


500 011146 


104401 


001207 






TYPE 


501 011152 


104401 


042045 






TYPE 


502 011156 


104401 


001274 






TYPE 


503 011162 


113746 


001224 






M0V8 


S04 011166 


104403 








TYPOS 


505 011170 


001 








•BYTE 


506 011171 


000 








.BYTE 


507 011172 


104401 


042752 






TYPE 


508 011176 


104401 


042073 






TYPE 


509 011202 


104401 


001207 






TYPE 


510 011206 


104401 


042106 






TYPE 


511 

512 011212 


104411 






21: 


RDLIN 


513 011214 


01 2605 








MOV 


514 011216 


105715 








TST8 


515 011220 


001374 








BNE 


516 011222 


1 1 3701 


001274 






M0V8 


517 011226 


042701 


1 77760 






SIC 


518 011232 


005301 








DEC 


519 011234 


006301 








ASL 


520 011236 


006301 








ASL 


521 011240 


016137 


002014 


030324 




MOV 


522 011246 


016137 


002016 


030326 




MOV 


523 011254 


004737 


030334 






JSR 


524 011260 


012737 


Mini 


030264 




MOV 


525 011266 


012737 


1 77777 


030266 




MOV 


526 011274 


013700 


00^ 22^ 






MOV 


527 011300 


105760 


030206 






TSTB 


528 011304 


003426 








BLE 


329 011306 


105760 


030216 






TSTB 


530 011312 


003423 








BLE 


531 011314 


122737 


000007 


001402 




CMPB 


532 011322 


001 005 








BNE 


533 011324 


122760 


000007 


0302^6 




CMPB 


534 011332 


001420 








BEQ 



8 5 
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#1.STIMES 
#1.T^'TNM 
•STACK. SP 
tCDWl ,BLKADR 
6S 

SCDWI .R1 

SSYSNM(R1),$CDU2 
IS 

SSYSNM(R1).SCDW2 

#]DLEX,aRMVEC 

aRMVEC*2 

,$CRLF 

.MESG3 

,MESG6 

.MESG1 

.OUOTM 

.SCDW2 

,0'JOTM 

(Rl). DRIVE 

.SCRLF 

.MESG4 

.SCDU2 

DRIVE. -(SP) 

1 
0 

.aiNKSI 
,MESG8 
.JCRLF 
.MESG9 



;D0 1 JTERATJON 
LOAD THE TEST HUm^R 
INITIALIZE THE STACK POiNT 
LOGICAL DRIVE 0 
THEN EXIT 

R1=L0GICAL DRIVE BLOCK ADDRESS 
.STILL ON THE SAME SYSTEM ' 
THEN .EXIT 

;LOAD THE NEW SUB SYSTEM N,XME 
RESET THE INTERRUPT VECTOR 
CLEAR THE INTERRUPT LEVEL 
CR-LF 

STARTING PASS 1 

ON 

SUB-SYSTEM 

TYPE QUOTATION MARK 

SYS-NA«E(A TO H) 

TYPE •"• QUOTATION MARK 

LOAD THE PHYSICAL DRIVE # 

CR-LF 

MOUNT PACK ON THE DRIVE 

SYS-NAME(A TO H) 

THE PHYSICAL DRIVE » 



TYPE 1 BLANK 
AND LOAD 
CR-LF 



(SP)*.R5 

(R5) 

2S 

SCDW2.R1 

#1 77760. R1 

R1 

R1 

R1 

SYSA0R(R1).RMADR 
SYSADR*2(R1),RMVE 
PC.RMINIT 
#-1.SAVEFG 
#-1.SEEKF6 
DRIVE, RO 
DRVSTA(RO) 
5S 

DRVTYP(RO) 
5S 

#7,DTYP 
3S 

#7.DRVTVP(R0) 
6S 



LOCATE THE READIN LINE 
NOT CORRECT INPUT LINE fORMAT 
BRANCH IF NOT 

LOCATE THE SYSTEM ADDRESS TABLE 
LEFT ON 4 BITS 
ADJUST THE INDEX VALUE 
FOUR WORD INDEX VALUE 

.•LOAD THE SYSTEM ADDRESS 
C .-LOAD THE SYSTEM INTERRUPT VECTOR 
INITIALIZE THE SYSTEM 
SAVE ALL RH/RM REGISTER 
DON'T DO ANY IMPLY SEEK 
RO=PHySICAL DRIVE • 
ON-LINE ? 
BRANCH IF NOT 
CHECK DRIVE TYPE 
BR IF NOT AN RM05/3/2 
WHAT WAS FIRST DRIVE TE:TED ? 
BRANCH IF AN RM02 OR RM03. ELSE 
SEE IF DRIVE IS STILL AN RM05. 
BR IF YES 



'■ZRMTBO RM05/5/2 DR CMPT TST 
GET VALUE FOR SOFTWARE SWITCH 



»WCRO V04.00 
REGISTER 



C 

PAGE 



5 

9-11 



SEO 0OS4 



555 
536 
537 
538 
539 
5^0 
5^1 
542 
543 
544 
545 
5-6 
547 
548 
549 
550 
551 
552 
553 
554 



011354 
011556 
011544 
011546 
011552 
011556 

011562 
011366 
011572 
01 1 574 



000404 
122760 
001015 
104401 
104401 
000177 

104401 
104401 
000612 



000007 050216 

001207 
045556 
170016 

001207 
042142 



3$: 
4S: 

5S: 
6$: 



BR 4S 

CMP8 #7.DRVTYP(R0) 

BNE 6S 

TYPE .SCRLF 

TYPE .NOTST 

JMP aRSTART 

TYPE ,$CRLF 

TYPE ,MESG10 

BR TS71 



ERROR ENCOUNTERED 

SEE IF DRJVE IS STJLL AN RM02 OR Rn03. 

8R IF YES 

CR-LF 

CANNOT SELECT RM03/2'S AND RH05'S TOGETHER 
JUMP TO RESTART 

CR-LF 

DRIVE NOT READY 
TRY AGAIN 



TEST 2 

BASIC READ AND WRITE TEST 

ALL LOGICAL DRIVE ACCESS CYLINDER 620 

AND SECTOR ADDRESS IS CORESPONDING TO THE LOGICAL DRIVE * 

EACH LOGICAL DRJVE PERFORM WRITE AND WRITE CHECK ON ALL TRACKS, 

(TRKO - TRK4 ON AN RM05/2 AND TRKO - TRKlS ON AN RM05) 





011374 


000004 






TST2: 


SCOPE 




01 1 576 


012757 


000001 


001 1 76 




MOV 


555 


011404 


012737 


000002 


001 340 




MOV 


556 


011412 


012706 


001100 






MOV 


557 


011416 


012700 


004506 






MOV 


558 


011422 


013701 


001272 






MOV 


559 


011426 


115710 


001224 






MOVB 


560 


011452 


015760 


001270 


000010 




MOV 


561 


01 1440 


012760 


001154 


000012 




MOV 


562 


011446 


012760 


177400 


000004 




MOV 


563 


011454 


012760 


043456 


000006 




MOV 


564 


011462 


012760 


004526 


000014 




MOV 


565 


011470 


105060 


oooon 






CLR8 


566 


011474 


112760 


000161 


000002 




M0V8 


567 


011502 


004737 


021042 






JSR 


568 


011506 


004037 


051062 




2$; 


JSR 


569 


011512 


004506 








FMTDP8 


570 


011514 


000774 








BR 


571 


011516 


005737 


004524 




3$: 


TST 


572 


011522 


001775 








BEQ 


575 


011524 


012700 


004506 






MOV 


574 


011530 


004737 


017452 






JSR 


575 


011554 


005760 


000016 






TST 


576 


011540 


100433 








BMI 


577 


011542 


112760 


000151 


000002 




MOVB 


578 


011550 


004037 


051062 




4S: 


JSR 


579 


011554 


004506 








FMTDP8 


580 


011556 


000774 








BR 


581 


011360 


005737 


004524 




5$: 


TST 


582 


011564 


001775 








BEO 


583 


011566 


012700 


004506 






MOV 


584 


011572 


004757 


017452 






JSR 


585 


011576 


005760 


000016 






TST 


586 


011602 


100412 








aMi 


587 


011604 


112760 


000161 


000002 




MOVB 


588 


011612 


105260 


oooon 






INC8 


589 


011616 


126057 


00001 1 


001 372 




CMP8 



<fl,$TJMES 
*2.TSTNM 
#STACK.SP 
#FMTDP8.R0 
SCDWl.Rl 
DRIVE, (RO) 
$DEVM,$SEC(RO) 
#620.,$CYL(R0) 
#-256. ,$WRDM(RO) 
#BUFFER.$eUF(RO) 
#RM.REG,14(R0) 
$TRK(RO) 



;D0 1 ITERATION 
LOAD TEST NUMBER 
INITIAL THE STACK POINTER 
DP8 BLOCK ADDRESS 

ADDRESS OF THE LOGICAL DRIVE BLOCK 
PHYSICAL DRIVE H 

LOAD THE SECTOR *.FROM THE LOGICAL DRIVE NUMBER. 
LOAD CYLINDER NUMBER 
.•LOAD NEG WORD COUNT 
;LOAD BUFFER ADDRESS 
; ADDRESS TO SAVE ALL RH/RM REG'S 
; START FROM TRACK 0 



^TDAT,$COMND(RO) .-WRITE DATA COMMAND 

PCFILBUF ;FILL THE BUFFER WITH STANDARD PATTERN 

R0.RM05 .-CALL THE DRIVER 



2$ 

FMTDP8+16 
3$ 

#FMTDP8.R0 
PC, PROCESS 
16(R0) 
6$ 



.•BRANCH IF NOT QUEUE SUCCESSFULLY 



BRANCH IF NOT DONE 
RO=FMTDPB ADDRESS 
CHECK THE TERMINATION 
ERROR FLAG SET ' 
BRANCH IF SO 

#WCKD.$COMNO(R0); CHANGE TO THE WRITE CHECK DATA COMMAND 
R0,RM05 ;CLLL THE DRIVER 



4$ 

FMTDPB*16 
5$ 

<fFMTOF>B.RO 
PC.PROCES 
16(R0) 
6$ 



BRANCH IF NOT QUEU SUCCESSFULLY 
DONE ? 

BRANCH IF NOT DONE 



PROCESS IF ANY ERROR HAPPENS ? 
ERROR FLAG SET ? 
.BRANCH IF SO 
#WRTDAT.SCOMND(R0) ;RESET TO WRITE DATA COMMAMD 
$TRK(RO) ; INCREMENT TO THE NEXT TRACK 

$TRK(RO).TRKLMT ;ALL TRACKS DONE ? 



CZRMT80 RM05/5/2 OR CMPT TST MACRO V04.00 
GET VALUE FOR SOFTWARE SWITCH REGISTER 



D 5 
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.tO 005'. 



590 
591 
592 
593 
594 
595 
5% 
597 
598 
599 
600 
601 
602 
60? 
604 
605 
606 
607 
608 
609 
610 



611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

625 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 



011624 
011626 
011630 
011634 
011640 
011644 



011650 
011652 
011660 
011666 
011672 
011676 
011702 
011704 
011710 
011712 
011714 

011720 
011724 
011730 
011736 
0117''.4 
011752 
011760 
011764 
011766 
011772 
011776 
012002 
012004 
012006 



012010 
012012 
012014 
012020 
012024 
012032 
012036 
012044 



003730 
000410 
104401 
104401 
104401 
0001 77 



000004 
012737 
012737 
012706 
012704 
013700 
001404 
062704 
005300 
001374 
010437 

012700 
113710 
112760 
012760 
012760 
012760 
013701 
006301 
016104 
016002 
012703 
010422 
005303 
001375 



001207 
043125 
043106 
167530 



000001 
000003 
001100 
001406 
001270 

000020 



001324 

004506 
001224 
000161 
043456 
004526 
177400 
001270 

005322 
000006 
000400 



6S: 



TEST 1 

WRITE 

WRITE 



001176 
001340 



TST3: 



1$: 



2f: 



000002 
000006 
000014 
000004 



3$: 



BLE 

BR 

TYPE 

TYPE 

TYPE 

JMP 



7 ZONES 
6 ZONES 
SDEVM 
SCDW1 
$CDW2 
DRIVE 
PACK 
C/1CNT 
CMSEC 
R4 
RO 



2$ 

TST3 

,$CRLF 

,HALT1 

.HALTX 

aRSTART 



NO 

BRANCH TO NEXT TEST 
CR-LF 



.'JUMP TO RESTART 



FOR WRITE TEST IN PASS 2 
FOR READ TEST IN PASS2 
= LOGICAL DRIVE # 

= ADDRESS OF LOGICAL DRIVE HISTORY BLOCK FILE 
= SYS NAME 

= PHYSICAL DRIVE # OF THIS LOGICAL DRIVE 

= ENTRY OF TA8LE-D 

= ZONE COUNT 

= DELTA CYLINDER COUNT 

= ENTRY POINTER OF TA8LE-D, CANNOT BE DESTOR^'ED. 
= ADDRESS OF FMTDP8 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

BEQ 

ADD 

DEC 

BNE 

MOV 

NOV 
MOVB 

nov8 

MOV 

MOV 
MOV 
MOV 
ASL 
MOV 
MOV 
MOV 
MOV 
DEC 
BNE 



#1,$TIMES 

#3.rSTNM 

#STACK,SP 

*L0G0.R4 

SDEVM,R0 

2$ 

#16., R4 

RO 

IS 

R4,PACK 

#FMT0PB,R0 
DRIVE, (RO) 



005046 






CLR 


-(SP) 


005046 






CLR 


-(SP) 


012746 


000006 




MOV 


*6,-(SP) 


012746 


000160 




MOV 


#112.,-(SP) 
#7.CMCNT 


012737 


000007 


001354 


MOV 


005037 


001356 




CLR 


CMCYL 


012737 


000020 


001362 4$: 


MOV 


#16. .CMSEC 


012700 


004506 




MOV 


#FMTDP8,R0 



;;D0 1 ITERATION 
;LOAD THE TEST Nl^EP 
.•INITIAL THE STACK POINTER 
.ADDRESS OF TABLE-D 
.•LOGICAL DRIVE M 
.•BRANCH IF LOGICAL DRIVE 0 

;EACH LOGICAL DRIVE TAKES 16 BYTES IN THE TABLE 
.•DECREMENT THE DRIVE K COUNT 
.•BRANCH .UNTIL THE ENTRY IS LOCATED 
.•SAVE THE TABLE-D ENTRY IN PACK 
;SET UP THE FMTDP8 BLOCK 
.•ADDRESS OF FMTDP6 
.•PHYSICAL DRIVE Nl«ER 
#WRTDAT,$C0nND(R0) .WRITE DATA COMMAND 

4IBUFFER.$8UF(R0) .BUFFER ADDRESS 
#R«.REG,14(R0) .-ADDRESS TO SAVE ALL RH/RM REG'S 
/r-256..$WRDM(R0) ;NE6 WORD COUNT 

SDEVM.RI .-LOGICAL DRIVE » 

Rl .-WORD INDEX 

PSEU00(R1),R4 .-LOAD THE DATA PATTERN 
.•BUFFER ADDRESS IN R2 
;POS WORD COUNT 

.•FULL THE BUFFER WITH SIGLE WORD PATTERN 
.•DECREMENT THE WORD COUNT 
;BRANCH,UNTIL IT IS FULL 



DUMY PAIR OF ZONE COUNT 

DUMY STARTING CYLINDER NUMBER 

ZONE COUNT 

STARTING CYLINDER NUMBER 
ZONE COUNT 

STARTING CYLINDER NUMBER 
DELTA CYLINDER NUMBER 
RO DPS ADDRESS 



S6UF(R0).R2 

#256.. R3 

R4.(R2)* 

R3 

3$ 



^ZWMTBO RM05/5/2 OH CMPT TST MACRO VO^.OO 
GET VALUE FOR SOFTWARE SWITCH REGISTER 



E 

PAGE 



5 

9-13 



SEO 0056 



6A5 012050 
6A6 012054 

647 012062 

648 012066 

649 012072 

650 012076 

651 012100 

652 012102 

653 012106 

654 012110 

655 012114 

656 012120 

657 012124 

658 012126 

659 012134 

660 012142 

661 012144 

662 012150 

663 012154 

664 012162 

665 012164 

666 012170 

667 012174 

668 012176 

669 012202 

670 012204 

671 012212 

672 012220 

673 012224 

674 012226 

675 012232 

676 012236 

677 012242 

678 012244 

679 012250 
680 

681 012252 

682 012254 

683 012260 

684 012264 

685 012270 
686 

687 
668 
689 
690 
691 
692 
603 

012274 
012276 

694 012304 

695 012312 

696 012316 

697 012324 

698 012330 

699 012334 



013704 
013760 
105060 
111460 
004037 
004506 
000774 
005737 
001 775 
012700 
004737 
005760 
100453 
062760 
122760 
103353 
111460 
105260 
126037 
003743 
105060 
005260 
00520^; 
005337 
001331 
062760 
016037 
005337 
001304 
012637 
012637 
005737 
001275 
005737 
001272 

000410 
104401 
104401 
104401 
000177 



000004 
012737 
012737 
012706 
012777 
005077 
104401 
104401 



001324 
001356 
000011 
000010 
031062 



004524 

00/- 506 
017452 
000016 

000020 
000037 

000010 
000011 
00001 1 

00001 1 
000012 

001362 

000160 
000012 
001354 

001356 
001354 
001556 

001354 



001207 
043176 
043106 
167104 



000001 
000004 
001100 
017444 
016000 
001207 
0<>2272 



000012 5S: 

6S: 
7S: 



8S: 



0000^0 
000010 



001372 



000012 
001356 



9S: 



MOV 

MOV 

CLR8 

M0V8 

JSR 

FMTDP8 

BR 

TST 

BEO 

MOV 

JSR 

TST 

BMI 

ADD 

CMP9 

BHIS 

M0V8 

INC8 

CMP8 

BLE 

CLR8 

INC 

INC 

DEC 

BNE 

ADD 

MOV 

DEC 

BNE 

MOV 

MOV 

TST 

BNE 

TST 

BNE 

BR 

TYPE 

TYPE 

TYPE 

JMP 



PACt(,R4 

CMC^L .SCYL (RO) 
STRK(RO) 
(R4),$SEC(R0) 
R0,RMO5 



7$ 

FMTDP8+16 
8S 

#F,'^TDP8.R0 
PCPROCES 
16(R0) 
9S 

#16..SSEC(R0) 
#31.,$SEC(R0) 
7$ 

(R4).$SEC(R0) 
$TRK(RO) 
$TRK(RO).TRKLMT 
7$ 

STRK(RO) 
$CYL(RO) 
R4 

CMSEC 
6S 

#112., SCYL (RO) 
$CYL(RO).CMCYL 
CMCNT ; DECREMENT 
4S 

(SP)*.CMCYL 
(SP)*, CMCNT 
CMCYL 
4S 

C«CNT 
4S 



TST4 

,$CRLF 

.HALT2 

,MALTX 

iRSTART 



R4 ENTRY TO TA8LE-D 

STARTING CYLINDER 

STARTS FROM TRACK 0 

LOAD SECTOR NUMBER FROM TA8LF-D 

CALL THE DRIVER 



BRANCH IF OUEU IS NOTSUCCESSFUL 
DONE ? 

BRANCH IF NOT 



PROCESS TO CHECK IF ANY ERROR 
ERROR FLAG SET ? 
BRANCH IF SO 

WRITE TWO SECTORS ON ONE CYLINDER 
ALL DONE-TWO SECTORS 
BRANCH IF NOT 
RESTORE SECTOR # 
INCREMENT TO NEXT TRACK 
LAST TRACK ? 
NO, THEN BRANCH 
RESTORE TO TRACK-O 
INCREMENT CYLINDER NUMBER 
INCREMENT TA8LE-D ENTRY 
DECREMENT THE DELTA CYLINDER COUNT 
BRANrn IF NOT END OF THIS BLOC< 
INCREWNTTHE CYLINDER NUMBER TO NEXT ZONE 
INITAIL THE STARTING CYLINDER IN THE BLOCK 

THE ZONE COUNT 
LOOPING If NOT END OF ZONE 
LOAD NEW PAIR OF STA,TTING CYLINDER 
AND ZONE COUNT 
NOT END YET ? 
BRANCH IF NOT 
BRANCH IF NOT END 
LOOPING BACK 



BRANCH TO THE NEXT TEST 
CR-LF 



.•Jiff TO RESTART 



TEST 4 

UPDATE THE PARAME TERS, fCDWl ,$DEVM.ASSGN1 

DIRECT THE OPERATOR TO DISMOUNT PACK AND LOAD TO OTHER DRIVE 

SCDW2. DRIVE ARE CHANGED BY TEST ONE ONLY AFTER THE TEST LOOPING TO TEST1 



001176 
001 340 

016002 



TST4: SCOPE 

MOV *1.$TIMES 

MOV #4.TSTNM 

MOV #STACK.SP 

MOV #IDLEJ..aRMVEC 

CLR aRMVEC*2 

TYPE .SCRLF 

TYPE .MESG12 



;;D0 1 ITERATION 
.-LOAD THE TEST NUMBER 
.•LOAD THE STACK POINTER 
.•RESET THE INTERRUPT VECTOR 
.-CLEAR THE INTERRUPT LEVEL 
; CR-LF 

.•UNLOAD DRIVE 



-ZR^ITBO RM05/3/2 DR r^T TST MACRO V04.00 
GET VALUE FOR SOFTyARE SWITCH "REGISTER 



700 


012340 


104401 


001274 




701 


012344 


013746 


C01224 




702 


012350 


104403 






703 


012352 


001 






704 


012353 


000 






705 


012354 


104401 


042310 




706 


012360 
012364 


012701 


000001 




707 


005002 






708 


012366 


020237 


001270 




709 


012372 


001404 






710 


012374 


000241 






711 


012376 


006101 






712 


012400 


005202 






713 


012402 


000771 






714 


012404 


040137 


002010 




715 


012410 


001410 






716 


012412 


005202 






717 


012414 


006302 






718 


012416 


016237 


004444 


001272 


719 


0^2424 


006202 






7^0 


012426 


010237 


001270 




721 










722 


012432 


104411 






723 


012434 


012605 






724 


012456 


105715 






725 


012440 


001374 






726 


012442 


005737 


002010 




727 


012446 


001002 






728 


012450 


000137 


012460 




729 


012454 


000137 


011020 




730 










73 1 










732 










733 










734 
'35 


















736 










737 










738 










739 










740 










741 


012460 


005737 


002012 




742 


012464 


001002 






743 


012466 


000137 


017146 




744 










745 


012472 


005037 


001270 




746 


012476 


01 3737 


004444 


00127? 


747 


012504 


112737 


000101 


001274 


748 


012512 


013737 


00' 014 


030324 


749 


012520 


013737 


002016 


030326 


750 


012526 


013701 


001272 




751 


012532 


0^2777 


017444 


015566 


752 


012540 


005077 


015564 




753 


012544 


005037 


001376 




754 


012550 


04401 


001207 




755 


012554 


104401 


042^56 




756 


012560 


104401 


042664 





1$: 



2$: 
3$: 



4$: 



5S: 



XPASS2 





F 


5 


APR-81 


18:12:15 PAGE 9 


-14 


TrPE 


.SCDU2 


;SrS-NAME(A - H) 


MOV 


DRIVE. -(SP) 


.-PHYSICAL DRIVE # 


TrPOS 






.8YTE 


1 




.8rTE 


0 




TYPE 


.MESG13 




MOV 


#1,R1 




CLR 


R2 




CMP 


R2.tDEVM 


.•LOCATE THE CORESPONDING BIT MAP 


BEG 


2$ 


.'BRANCH IF LOCATED 


CLC 




.•LOCATE NEXT DRIVE 


ROL 


R1 




INC 


R2 


•NEXT DRIVE # 


BR 


1$ 


.•LOCATE THE BIT MAP 


BJC 


R1 .ASSGN1 


;DEASSIGN THE LOGICAL DRIVE FOR PASS 


BEO 


4S 


;N0 MORE DRIVES 


INC 


R2 


.•GET NEXT LOGICAL DRIVE # 


ASL 


R2 


;WORD INDEX 


MOV 


BLKADR(R2).tCDWl ;LOAD THE NEW DP8 ADDRESS 


ACQ 

ASH 


R2 


•RESTORE R2 


MOV 


R2.SDEVM 


;LOAD THE NEW LOCICAL DRIVE # 


RDLIN 




.-WAIT UNTIL IT IS DONE 


MOV 


(SP)*,R5 


.•LOCATE THE INPUT LINE 


TST8 


(R5) 


.•TERMINATOR ? 


BNE 


4S 


.•BRANCH IF NOT 


TST 


ASSGNl 


;OTHER DRIVES ? 


BNE 


5$ 


.•BRANCH IF MORE DRIVES IN TEST 


JMP 


XPASS2 


.•BRANCH TO PASS 2 


JMP 


TST1 


;JUMP TO TEST 1 




INITILIZE FOR 


PASS 2 TEST 



sto 005: 



$CDW1 
SCDW2 

$DEvn 

ASSGN2 
ASNLST 
DRIVE 



XPASS2: TST 
BNE 
JMP 



1$: 



CLR 

MOV 

M0V8 

MOV 

MOV 

MOV 

MOV 

CLR 

CLR 

TYPE 

TYPE 

TYPE 



ADDRESS OF THE CURRENT LOGICAL DRIVE HISTORY FILE 

SYSTEM NAME A THROUGH H 

CURRENT LOGICAL DRIVE #0 TO 15. 

ASSIGNED LOGICAL DRIVE FOR PASS 2 

ASSIGNED LOGICAL DRIVE 

PHYSICAL DRIVE # OF CURRENT RH/RM SYSTEM 



ASSGN2 
1$ 

XEND2 
fDEVM 

BLKADR.SCDWI 

#'A.SCDU2 

SYSADR.RMADR 

SYSADR*2.RMVEC 

JCDWI .Rl 

#IDLEX.aRMVEC 

afiMVEC*2 

FAULT 

.SCRLF 

.MESG14 

,MESG6 



ANYTHING IN TEST FOR PASS 2 

YES, THEN GO ON 

JUMP TO END OF PASS 2 

START FROM LOGICAL DRIVE 0 
ADDRESS OF LOGICAL BLOCK DRIVE 0 
LOAD SYSTEM NAME "A" 
LOAD SYSTEM-A ADDRESS TO DRIVER 
LOAD SYSTEW-A VECTOR TO DRIVER 
R1=ADDRESS OF LOGICAL BLOCK 
RESET THE INTERRUPT VECTOR 
CLEAR THE INTERRUPT LEVEL 

THE NOT COMPATIBLE FLAG 



RESET 
CR-LF 
START 
ON 



IHE PASS 2 



-ZR*1TB0 RM05/3/2 DR C^T TST 
GET VALUE FOR SOFTWARE SWITCH 



757 01256A 

758 012570 

759 012574 

760 012600 

761 012604 

762 012610 
765 0126K 

764 012620 

765 012624 

766 012626 

767 012630 
7o8 012631 

769 012632 

770 012636 

771 012642 

772 012646 
773 

77*, 012652 

775 012654 

776 012656 

777 012660 

778 012662 

779 01?666 

780 012674 

781 012702 

782 012706 

783 012712 

784 012714 

785 012720 

786 012722 

787 012730 

788 012736 

789 012744 

790 012746 
012754 



•lACWO V04 
REGISTER 



,00 4-APR-8' 18:"'2:15 



G 

PAGE 



5 

9-15 



SCO 0058 



791 
792 

793 012756 

794 012762 

795 012766 

796 012772 
797 

798 
799 
800 
801 
802 
803 
804 
805 
806 
807 

012772 
012774 

808 013002 

809 013010 

810 013014 

811 013022 



104401 


041776 






»yPE 


.MESG1 


104401 


C42644 






TrPE 


.QUOTM 


104401 


001274 






TYPE 


.$CDW2 


104401 


042644 






TYPE 


.OUCTM 


1 1 1 1 37 


001224 






M0V8 


(R1). DRIVE 


104401 


001207 






TYPE 


.SCRLF 


104401 


042045 






TYPE 


,MESG4 


104401 


001274 






TYPE 


,SCDW2 


111146 








M0V8 


(R1 ) ,-(SP) 


104403 








TYPOS 


1 


001 








.BYTE 


coo 








.BYTE 


0 


104401 


042752 






TYPE 


,BwNKS1 


104401 


042073 






TYPE 


,MESG8 


104401 


001207 






TYPE 


.SCRLF 


104401 


042106 






TYPE 


,MESG9 


104411 






2$: 


RDLIN 




012602 








MOV 


(SP)*,R2 


105712 








TST8 


(R2) 


001374 








BNE 


2$ 


004737 


030334 






JSR 


PCRMINIT 


012737 


Mill! 


030264 




MOV 


#-1 .SAVEFG 


012737 


M7771 


030266 




MOV 


*-1 .SEEKFG 


013700 


001224 






MOV 


DRIVE ,R0 


105760 


030206 






TST8 


DRVSTA(RO) 


003421 








BLE 


4$ 


105760 


0302 1 6 






TST8 


DRVTYP(RO) 


003416 








BLE 


4$ 


116037 


030216 


001402 


3$: 


M0V8 


DRVTYP(RO) ,PT 


012737 


000022 


001372 




MOV 


#18.,TRKLMT 


122760 


000007 


030216 




CMP8 


#7,DRVTYP(R0) 


001412 








BEO 


5$ 


012737 


000004 






nuV 




000406 








BR 


5$ 


104401 


001207 




4$: 


TYPE 


.SCRLF 


104401 


042142 






TYPE 


.ME SGI 0 


000137 


011004 






JMP 


ENDXI 



5S: 



MARK 



SUB-SYSTEM 
TYPE •••• QUOTATION 
SYS-NAME(A TO H) 
TYPE "" QUOTATION MARK 
LOCATE THE PHYSICAL DRIVE 
CR-LF 

MOUNT PACK ON DRIVE 
SYSTEM NAME 



;TYPE 1 BLANK 
;AND LOAD 
; CR-LF 

;TYPE <CR> WHEN DRIVE IS READY 



LOCATE THE ><EAD IN LINE 
CARRIAGE RETURN ? 
BR IF NO 

SAVE ALL RH/RM REGISTERS 

DON'T DO IMPLY SEEK 

LOAD THE PHYSICAL DRIVE NUMBER 

DRIVE EXISTS AND ON-LINE ? 

BRANCH IF NOT 

CHECK DRIVE TYPE 

BR IF NOT AN Rf105/3/2 

GET DRIVE TYPE TO BE TESTED 

GET LAST TRACK FOR AN RM05 

IS DRIVE AN RM05 ? 

BR IF YES 

GET LAST TRACK FOR AN RM03/2 



; CR-LF 

.•DRIVE IS NOT READY 



SCDWI = ADDRESS OF CURRENT LOGICAL DRIVE B( OCK,ONLY CHANGED BY TST9 

$CDW2 = SYSTEM-NAME. ONLY CHANGED BY TEST 5 

SDEVM = CURRENT LOGICAL DRIVE * 

ASSGN2 = ASSIGNED LOGICAL DRIVE'S BJT MAP FOR PASS 2 

DRIVE = PHYSICAL DRIVE # 

ASNLST = ASSIGNED LOGICAL DRIVE IN THE TEST 

IN TEST 5 DIRECT OPERATOR TO CHANGE. LOAD THE PACK 
■****•**•**•*•**»• ♦»♦♦*»»»•»•»»»*•»♦»»»♦♦*»»*•»«♦»»»»•»»••»•»♦» 



000004 
012737 
012757 
012706 
023737 
001550 



000001 
000005 
001100 
001272 



001 1 76 
001340 

004444 



TST5; SCOPE 

MOV *1,tTlMES 

MOV #5.TSTNM 

MOV *STACK,SP 

CMP $CDW1.BLKADR 

BEO 6S 



;D0 1 ITERATION 
LOAD THE TEST NUWER 
LOAD THE STACK POINTER 
LOGICAL DRIVE 0 
THEN EXIT 



ZRoiTBG RH05/^/? DR CMPT TST MACRO v'OA.OO 4-APR-81 

jE' value fo« software switch register 



812 


01 3024 


013701 


001272 






MOV 


81? 


01 3030 


126137 


000014 


001274 




CMP8 


8U 


013036 


001443 








BEQ 


8^S 


013040 


116137 


000014 


001274 




M0V8 


816 


0^3046 


012777 


01 7444 


015252 




MOy 


817 


01 5054 


005077 


015250 






CLR 


8^8 


015060 


013700 


001274 






MOV 


819 


0^5064 


005300 








DEC 


8?0 


015066 


042700 


177760 






BIC 


821 


0"5072 


006300 








ASL 


822 


01 3074 


006300 








ASL 


823 


01 3076 


016037 


002014 


030324 




MOV 


824 


013104 


016037 


002016 


030326 




MOV 


8:-s 


013112 


104401 


001207 






TYPE 


826 


013116 


104401 


042356 






TYPE 


827 


013122 


104401 


042664 






TYPE 


828 


013126 


104401 


04 1 776 






TYPE 


829 


013132 


104401 


042644 






TYPE 


830 


013136 


104401 


001274 






TYPE 


831 


C13142 


104401 


042644 






TYPE 


852 


013146 


111137 


001224 




IS: 


M0V8 


833 


013152 


104401 


001207 






TYPE 


854 


013156 


104401 


042045 






TYPE 


835 


013162 


104401 


001274 






TYPE 


836 


013166 


111146 








wove 


837 


013170 


104<,03 








TYPOS 


838 


013172 


001 








.BYTE 


839 


013173 


COO 








.BYTE 


840 


013174 


104401 


042752 






TYPE 


841 


013200 


104401 


042073 






TYPE 


842 


013204 


104401 


001207 






TYPE 


843 


013210 


104401 


042106 






TYPE 


844 














845 


013214 


104411 






2$: 


RDLIN 


846 


013216 


012602 








WV 


847 


01 3220 


105712 








TST8 


848 


013222 


001374 








BNE 


849 


013224 


004737 


030334 






JSR 


850 


013230 


012737 


}77777 


030264 




MOV 


851 


013236 


012737 


y77777 


030266 




MOV 


852 


013244 


013700 


001224 






MOV 


853 


01 3250 


105760 


030206 






TSTB 


854 


013254 


003426 








BLE 


855 


013256 


105760 


030216 






TSTB 


856 


013262 


003423 








BLE 


857 


013264 


122737 


000007 


001402 




CMP8 


858 


013272 


001005 








BNE 


859 


01327^ 


122760 


000007 


030216 




CMP8 


860 


013302 


001420 








BEQ 


OO 1 












RR 
Oft 


862 


013306 


^ 22760 


000007 


030216 


3$: 


CMP8 


863 


013314 


001013 








BNE 


864 


013316 


104401 


001207 




4$: 


TYPE 


865 


013322 


104401 


043356 






TYPE 


866 


013326 


000177 


166046 






JMP 


867 
868 


013332 


104401 


001207 




5S: 


TYPE 



I 



H 5 

'8:V:15 PAGE 9-l6 



SEO 0OS9 



SCDWI.RI .ADDRESS Of the HISTORY FILE 
SSYSNM(RI) ,$CDW2 ;0N THE SAME SUB-SYSTEM 

1$ .-THEN DON'T UPDATE SYSTEM ADDRESS 

$SYSNM(R1).$CDW2 

#IDLEX.aRMvEC .-RESET THE INTERRUPT VECTOR 

aftMVEC*2 .-CLEAR THE INTERRUPT LEVEL 

$CDW2.R0 ; LOCATE SYSTEM ADDRESS TA8LE 

RO .-ADJUST fOR INDEX FORM 0 

#1 77760.ro .-left ON FOUR BITS 
RO 

RO .-INDEX FOR TWO WORD 

SYSADR(RO),RMADR .'SYSTEM ADDRESS 

SYSADR*2(R0),RMVEC .-SYSTEM INTERRUP VECTOR 

.SCRLF ; CR-LF 

.MESG14 .-START THE PASS 2 

.MESG6 ;0N 

.MESGl ;SLB-SYSTEM 

.OUOTM .-TYPE "" QUOTATION MARK 

,$CDW2 ;SYS-NAME(A TO H) 

.OUOTM ;TYFE OUOTATIO/^ MARK 

(Rl). DRIVE .-LOCATE THE PHYSICAL DRIVE * 

,$CRLF ; CR-LF 

.MES64 .-MOUNT PACK ON DRIVE 

.$CDW2 .-SYSTEM NAME 

<R1),-(SP) 

1 
0 

.8LNKS1 .-TYPE 1 BLANK 

.MESG8 ;AND LOAD 

.SCRLF .-CR-LF 

.MESG9 .-TYPE <CR> WHEN DRIVE IS READv 



(SP)*,R2 .-LOCATE THE READ IN LINE 

(R2) .-CARRIAGE RETURN ? 

2S ;8R IF NO 
PCRMINII 

/r-1.SAVEFG .-SAVE ALL RH/RM REGISTERS 

*-1,SEEKFG .DON'T DO I»>LY SEEK 

DRIVE. RO .-LOAD THE PHYSICAL DRIVE NUMBER 

DRVSTA(RO) .-DRIVE EXISTS AND ON-LINE ? 

5$ .-BRANCH IF NOT 

DRVTYP(RO) .CHECK DRIVE TYPE 

5$ ;8P IF NOT AN RM05/3/2 

#7.DTYP .-WHAT WAS FIRST DRIVE TESTED ? 

3$ .-BRANCH IF AN RM02 OR RM03. ELSE 

*7.DRVTYP(R0) ;SFE If DRIVE IS STILL AN RM05. 

6$ .-BR IF YES 

4$ .-ERROR ENCOUNTERED 

*7.DRVTYP(R0) .-SEE If DRIVE IS STILL AN RM02 OR RM03. 

6$ ;3R IF YES 

, SCRLF ;CR-Lf 

.NOTST ;CANNO" SELECT RM05/2'$ AND RM05'S ^OoE^hER 

cW?START .-JUMP TO RESTART 

.SCRLF ;CR-Lf 



'ZRMTBO RM05/3/2 DR CMPT TST nACRO VO^.OO 
GE' VALUE FOR SOFTWARE SWITCH REGISTER 



I 5 
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^fO 0060 



869 

870 

871 

872 

873 

87A 

875 

876 

877 

878 

879 

830 

881 

862 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 



897 
898 
809 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
<518 
919 
920 
921 
92? 
923 



013356 
013342 
013344 



013344 
01 3346 
013354 
013362 
013366 
013372 
01 3376 
013400 
013402 

013404 
013410 
013414 
013420 
013426 
013432 
013440 
013446 
013454 
013462 
013466 
013470 
013474 
013500 
013504 
013506 
013510 



104401 
000613 



000004 
012737 
012737 
012706 
012703 
012704 
005023 
020403 
101375 

012700 
013701 
1 13710 
012760 
005060 
112760 
01 3760 
012760 
012760 
013702 
006302 
016202 
016003 
012704 
010223 
005 304 
001375 



042142 



000001 
000006 
001100 
002056 
003216 



004506 
001272 
001224 
160000 
000010 
000161 
001270 
043456 
004526 
001270 

005322 
000006 
020000 



6$: 



TYPE 
BR 



DRIVE 
SCDUl 
SDEVM 
$CDU2 
RMADR 
RMVEC 



.MESG10 
(ST5 



.•DRIVE IS NOT READY 
;TRV AGAIN 



PHYSICAL DRIVE NUMBER 

DPS BLOCK OF THIS LOGICAL DRIVE 

LOGICAL DRIVE » 

SUB-SYSTEM NAWE 

SUB-SYSTEM BASE REGISTER ADDRESS 
iUB-SYSTEM INTERRUPT VECTOR 



THE ABOVE PARAMETERS CANNOT BE MODIFIED BY THIS TEST (TST6) 

THE FOLLOWING REG'S ARE ASSIGNED AS: 

RO = ADDRESS OF DPS FIELD INTO DRIVER HANDLER=FMTDP8 

R1 = ADDRESS OF THE HISTORY FILE BLOCK OF THE LOGICAL DRiVE-SCDWl 

IN TEST 6, EACH LOGICAL DRIVE WRITES 7 CYLINDERS ON EACH TRACK WITH 
A UNIQUE DATA PATTERN. THESE 7 CYLINDERS HAVE BEEN WRITTEN BY OTHER 
DRIVES IN PASS 1. 

THEN, THIS LOGICAL DRIVE EXECUTES 'VWITE CHECK DATA" TO SEE IF ^HIS 
LOGICAL DRIVE CAN OVER-WRITE ALL DATA WRITTEN BY OTHER DRIVES. 

.THESE 7 CYLINDERS ARE SPECIFIED AS SDEVM. $DEVM*128. $DEVM*256, SDEVM*384. 
;$DEVM*512. IDE VM* 640 AND $DEVM*768. 

;THE OVER-Wfi]TF TEST IS PERFORMED WITH OFFSETS IN BOTH DIRECTIONS. 



001176 
001340 



TST6: 



1$: 



000004 

000002 
000012 
000006 
OOCOU 



2$: 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

CMP 

BHI 

MOV 

MOV 

M0V8 

MOV 

CLR 

M0V8 

MOV 

MOV 

MOV 

MOV 

ASL 

MOV 

MOV 

MOV 

MOV 

DEC 

BNE 



*1.$TIMES 

#6,TS1NM 

#STACK,SP 

#0VWN0.R3 

#RDN0.R4 

(R3)* 

R4.R3 

IS 



;D0 1 ITERATION 
LOAD TEST NUMBER 
INITIAL THE STACK POINT 
1 ST ADDRESS TO CLEAR 
LAST ADDRESS*? 
RESET ALL SCORE BOARD 
ALL LOCATIONS ARE CLEARED 
BRANCH IF NOT 



#FMTDPB,RO .-SET UP STARTING ADDRESS OF DPB 

$C0W1,R1 .-HISTORY FILE BLOCK 

DRIVE. (RO) .-LOAD THE PHYSICAL DRIVE » 

#-819j.,$WRDH{R0) .-LOAD THE WORD COUNT (ONE traCK) 
$SEC(RO) .-START FROM TRACK = 0, SECTOR 0 

*WRTOAT,$CO«NO(RO> .'WRITE DATA COMMAND 
$DEVM,$CYL(RO) ;LOAD THE STARTING CYLINDER 
*8UFFER,$8UF(R0) .-LOAD THE BUFFER ADDRESS 



#RM.REG,14(R0) 
$DEVM,R2 

R2 

PSEUOO(R2).R2 

$8UF(R0).R3 

#8192.,R4 

R2.(R3)* 

R4 

2$ 



REG'S SAVE ADDRESS 
LOCATE THE DATA PATTERN 
WORD INDEX 

LCAO R2 WITH THE DATA PAT'ERN POINTER 

BUFFER ADDRESS 

WORD COUNT 

FILL THE BUFFER 

DECREMENT WORD CTR 

BRANCH IF NOT DONE 



; START TO WRITE CWE CYLINDER ON EACH TRACK OF EmCH WPTE CURREN^ ZONE 



013512 


0OA037 


031062 




3$: 


JSR 


R0,RM05 


CALL THE DRIVER 


013516 


004506 








FMTDPe 




PARAMETER BLOCK 


01 3520 


000774 








BR 


3S i 


BRANCH IF QUEUE FAIL 


01 3522 


005737 


004524 




4S: 


TST 


FMTDPB*16 


WRITE COMMAND DONF ? 


013526 


001775 








BEQ 


4S 


NO, THEN WAIT 


013530 


012700 


004506 






MOV 


#FMTDP6,R0 


PROCESS IF ANY ERROR 


01353A 


004737 


017452 






JSR 


PC.PROCES 




0135A0 


005760 


000016 






TST 


16^R0) 
22$ 


ERROR FLAG SET ? 


01 35A« 


100010 








BPL 


BRANCH IF NOT 


0135A6 


004737 


030334 






JSR 


PCRMINIT 


■ INITIAL THE DRIVE 


013552 


012737 


1 77777 


030264 




MOV 


#-1 ,SAVEF6 




013560 


012737 


1 7777 r 


050266 




MOV 






01 3566 


105260 


00001 1 




22S: 


INC8 


STRK(RO) 


;NEXT TRACK 


013572 


126037 


00001 1 


001372 




CMP8 


$TRK(RO),TRKLMT 


;LAST TRACK IS DONE ? 


013600 


003744 








BLE 


3$ 


; NO. THEN BRANCH 


013602 


105060 


00001 1 






CLR8 


$TfiK(RO) 


; RESET TRACK NUMBER 


013606 


062760 


000200 


000012 




ADD 


#128.,$CYL(R0) 


;MOVE TO NEXT ZONE 


C136U 


022760 


0C1417 


000012 




CMP 


#783.,tCYL(R0) 


;LAST ZONE IS DONE ? 


01 3622 


103333 








BHIS 


3$ 


.•BRANCH IF NOT 



:ZRMTBO RM05/3/2 DR CMPT TST 
GET VALUE FOR SOFTWARE SWITCH 



924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

95 ^) 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 



MACRO V04 
REGISTER 



,00 4-APR-81 18:^2:15 



J 

PAGE 



9-18 



SEO 0061 



;(7 ZONES ON EACH PACK) 



.-RESET THE FMTDP8 BLOCK AND EXECUTE WRITE-CHECK COMMAND TO DETECT ANY 
;C0MPATI8LE PROBLEM. THE FOLLOWING SUBROUTINE ARE CALLED SCORE. OFFST 
.-AND MAKEUP. 



01 3624 
013630 
013634 
013640 

013646 
013654 
013662 
013670 
013674 
013676 
013700 
013704 
013706 
013712 
013716 
013722 
013726 
013730 
013734 
013742 
013750 
013752 
013756 
013762 
013764 
013772 
014000 



005037 
012700 
005060 
01 3760 

112760 
012760 
012760 
004037 
004506 
000774 
005737 
001775 
012700 
004737 
004737 
005760 
100011 
004737 
012737 
012737 
000414 
004737 
005760 
001407 
116060 
016060 
000753 



004504 
004506 
000010 
001270 

000151 
043456 
004526 
031062 



004524 

004506 
01 7452 
015034 
000016 

030334 
-{77777 
■\77777 

014614 
000022 

000026 
000022 



000012 

000002 
000006 
000014 



LOOP!: 

L00P2: 

1$: 

2$: 



030264 
030266 



000010 
000004 



3$; 
4$: 



CLR 
MOV 
CLR 
MOV 

M0V8 

MOV 

MOV 

JSR 

fMTDPS 

BR 

TST 

BEO 

MOV 

JSR 

JSR 

TST 

BPL 

JSR 

MOV 

MOV 

BR 

JSR 

TST 

BEO 

M0V8 

MOV 

BR 



OFF COD 
#F«T0P8.R0 
$SEC(RO) 
$DEV«,$CYL(RO) 

«WCKD,SCOMND(RO) 
«8UFFER,S8UF(R0} 
#RM.REG.14(R0) 
R0,RM05 

1$ 

FMTDP8*16 
2$ 

*F«TDPB.RO 

PC.PROCES 

PC.LABAO 

16{R0) 
3$ 

PC.RMINIT 
#-1,SAVEF6 
#-1.SEEKFG 
5$ 

PC. SCORE 
$RMWC(RO> 
5$ 



SET NEGATIVE OFFSET DIRECTION FLAG 

RO=FMTDPB ADDRESS 

star: FROM SECTOR 0, TRACK 0 

STARTING CYLINDER NUMBER 

TOTAL I CYLINDERS ON ONE TRACK 

;WRITE-CHECK-DATA COMMAND 
.•RESET BUFFER ADDRESS 

ADDRESS TO SAVE RH/RM REG'S 

CALL THE DRIVER 

PARAMETER BLOCK ADDRESS 

BRANCH IF QUEUE FAILURE 

TEST IF COMMAND IS DONE ? 

BRANCH . IF NOT 

LOAD THE PARAMETER BLOCK ADDRESS 

REPORT IF ANY ERROR 

LOCATE STARTING AND ENDING SECTORS 

ANY ERROR ? 

BRANCH IF .>X)NE 

INITIAL THE SYSTEM 



NOT UPDATE THE SCORE 
INCREMENT SCORE 
WORD COUNT = 0 / 
.BRANCH, IF WORD COUNT IS 0 
$RMDA(R0),$SEC(R0) .-UPDATE STARTING SECTOR 
SRMWC(R0).$URDM(R0) .'UPDATE WORD COUNT 
1$ ;T0 READ THE REST SECTORS 



THE FOLLOWING CODING TEST THE COMPATIBLE PROBLEM IN OFFSET MODE OFFCOO 
(NEGATIVE) AND OFFCOD = 1 (POSITIVE). 



= 0 



CZRMTBO RMOS/5/2 DR CMPT TST MACRO V04.00 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
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SEQ 006^ 



981 
982 
983 
98A 
985 
986 
987 
988 
989 
990 
991 
99? 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
10H 
1015 
1016 
101/ 
1018 
1019 
1020 
1021 
1022 
1023 
102A 
1025 
1026 
1027 
1028 
1029 
1030 
1C31 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 



014002 
0UOO6 
014014 
014020 
014026 
014034 
014040 
014042 
014046 
014052 

014054 
014060 
014064 
014070 
014074 
014076 
014102 

cuno 

014116 
014120 
014124 
014130 
014132 
014140 
014146 
014150 
014156 
014164 
014166 
014172 
014200 
014204 
014212 
014214 
014220 
014224 
014226 
014234 
014240 



012700 
012760 
105060 
012760 
012760 
004537 
000443 
004737 
005737 
001 775 

012700 

004737 

004737 

005760 

100011 

004737 

012737 

012737 

000414 

004737 

005760 

001407 

116060 

016060 

000732 

062760 

022760 

103402 

000137 

013760 

105260 

126037 

003002 

000137 

005737 

001005 

012737 

000137 

000137 



004506 
160000 
000010 
043456 
004526 
014244 

014476 
004524 



004506 
01 7452 
015034 
000016 

030334 
y77777 
-^77777 

0146K 
000022 

000026 
000022 

000200 
001417 

015646 
001270 
000011 
000011 

013646 
004504 

000001 
013630 
015140 



000004 

000006 
000014 



5S: 

6$: 
7$: 



030264 
030266 



000010 
000004 

000012 
000012 



000012 
001372 

004504 



8$: 
9$: 



10$: 
11$: 

12$: 
13$: 



MOV 

MOV 

CLR8 

MOV 

MOV 

JSR 

BR 

JSR 

TST 

BEQ 

MOV 

JSR 

JSR 

TST 

BPL 

JSR 

MOV 

MOV 

RR 

JSR 

TST 

BEQ 

MOVS 

MOV 

BR 

ADD 

CMP 

BLO 

JMP 

MOV 

INCB 

CMP8 

B6T 

JMP 

TST 

BNE 

MOV 

JMP 

JMP 



#FMTDPB,RO .-RESET THE DPS BLOCK 

#-8192..$URDM(R0) .-FULL TRACK WORD COUNT 
$SEC(RO) .-RESET TO SECTOR 0, TRACK NOT CHANGED 

#8UFFER.$BUF(R0) .'BUFFER ADDRESS 

#RM.RE6,H(R0) .-ADDRESS TO SAVE ALL RH/RM RtG'S 



R5.0FFST 
10$ 
PC.MAKEUP 
FMTDPB+16 
7$ 

*FMTDPB.RO 

PC.PROCES 

PC.LABAD 

16(R0) 

8$ 

PC.RMINIT 
f-1,SAV£F6 
#-1.SEEKFG 
10$ 

PC, SCORE 
$RMWC(RO) 
10$ 



.-CALL OFFSET 
.•BRANCH TO NEXT CYLINDER.]? OFFSET FAILS 
.•CALL WRITE CHECK IN OFFSET MODE 
; OFFSET WRITE CHECK IS DONE ? 
.•BRANCH IF NOT 



LOAD THE DPS ADDRESS 

REPORT . IF ANY ERROR 

LOCATE STARTINF AND ENDING SECTORS 

ANY ERROR ? 

BRANCH. IF NONE 

INITIAL THE SYSTEM 



NOT UPDATE THE SCORE 
UPDATE THE TEST SCORE 
WORD CTR = 0 ? 

If WORD CTR = 0 .BRANCH TO NEXT OP 
$RMDA(RO).$SEC(RO) .'UPDATE THE NEW STARTING ADDRESS 
$RMWC(R0),$WRDM(R0) .'UPDATE THE NEW WORD COUNT 
6$ 

ADJUST CYLINDER ADDRESS TO NEXT ZONE 
ALL 7 ZONES HAVE BEEN TESTED ? 
8RANCJ1. IF ALL DONE 
TO NEXT WRITE CURRENT ZONE 
RESET CYLINDER ADDRESS 
INCREMENT TO NEXT TRACK 
ALL TRACKS ARE TESTED ? 
BRANCH IF ALL DONE 
TO NEXT TRACK 

FINISHING TEST THE POSITIVE OFFSET ^ 
BRANCH IF ALL DONE 
SET POSITIVE OFFSET DIRECTION FLAG 
RESTART LOCATION 
BRANCH TO NEXT TEST 



#128..$CVL(R0) 
*783.,$CYL(R0) 
11$ 

L00P2 

$DEVM.$CYL(RO) 

$TRK{RO) 

$TRK(RO).TRKLMT 

12$ 

L00P2 

OFF COD 

13$ 

*1. OFF COD 

L00P1 

TST7 



OFFST ROUTINE 

OFFSET THE HEAD IN THE DIRECTION TOWARD SPINDLE OR AWAY FROM THE SPINDLE 



014244 
014246 



010146 
010246 



CALL 



O^FST: 



OFF COD 
OFF COD 
DRIVE 
RO 

RETRY 



JSR 

RET1 

RET2 

MOV 
MOV 



1. TOWARD SPINDLE (POSITIVE) 
0. AWAY FROM SPINDLE (NEGATIVE) 
PHYSICAL DRIVE NUMBER 
DPS ADDRESS 
3 TIMES 



R5. OFFST 



R1,-(SP) 
R2.-(SP) 



OFFSET FAIL RETUfiN ADDRESS 
OFFSET SUCCESSFUL RETURN 



.SAVE ALL REGISTERS 



:ZRMTBO RM05/3/2 DR CMPT TSI flACRO VOA.OO 4-APR-81 
GET VALUE FOR SOFTWARE SWITCH REGISTER 



1(X3 
-044 

10A6 
1(K7 
1(X8 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
106A 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 

1078 
1079 
1080 
:081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
7095 
1096 
1097 
1098 
1099 



014250 
014252 
014254 
014260 
014264 
014270 
014276 
014502 
014304 
014306 
014312 
014314 
014316 
014322 
014330 
014334 
014540 
014344 
014550 
C14356 
014364 
014372 
0K400 
OU404 
014412 
014416 
014420 
014426 
014454 
014440 
014442 
014444 
014450 
014452 
014454 
014460 
014460 
014464 
014466 
014470 
014472 
014474 



010346 








MOV 


010446 








MOV 


012700 


004506 






MOV 


116046 


000002 






M0V8 


113710 


001224 






M0V8 


112760 


000117 


00000? 




M0V8 


004037 


031062 






JSR 


004506 








fMTDPS 


000465 








BR 


005737 


004524 




IS: 


TST 


001 775 








BEQ 


100461 








BMI 


015746 


177776 






MOV 


012737 


000240 


177776 




MOV 


012700 


004506 






MOV 


013704 


030324 






MOV 


013701 


001224 






MOV 


010164 


000010 






MOV 


016064 


000012 


000034 




MOV 


016064 


000010 


000006 




MOV 


016064 


0Q0004 


000002 




MOV 


016064 


000006 


000004 




MOV 


012637 


177776 






MOV 


112760 


000200 


000001 




M0V8 


005737 


004504 






TST 


001003 








BNE 


112760 


000000 


000001 




M0V6 


112760 


0001 1 5 


000002 


2$: 


M0V8 


004037 


031062 






JSR 


004506 








FMTDPS 


000^.06 








BR 


005737 


004524 




5$: 


TST 


001775 








BEQ 


100402 








BMI 


062705 


000002 




6S: 


ADD 


112637 


004510 






M0V8 


012604 








MOV 


012603 








MOV 


012602 








MOV 


012601 








MOV 


000205 








RTS 



L 5 
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R3.-(SP) 
R4.-(SP> 

#FMTDPB.RO ;R0 DPB ADDRESS 

$COMND<RO),-(SP) .-SAVE THE I/O COMMAND 

DRIVE. (RO) .-LOAD THE DRIVE NUMBER 

#117,JCOMND(R0) .-RETURN TO CENTER COMMAND 
R0.RM05 ;CALL THE DRIVE HANDLE 



SfC 



6S 

FM7DPB+16 

1$ 

6$ 

a*PS.-(SP) 

ir<5*32.>,a#PS 

tfMTDPB.RO 
RMADR.R4 
DRIVE. R1 
R1.RMCS2(R4) 



;8RANCH IF QUEUE FAILS 
.•COMMAND DONE ? 
.-BRANCH IF NOT 
.-BRANCH IF ERROR EXIST 
.-SAVE THE PSW 
;LOAD PS 5 
;DP8 ADDRESS 
.-MUSS BUS ADDRESS 
.-DRIVE NUMBER 

.-LOAD THE DRIVE NUMBER INTO CONTROLLER 
$CVL(R0),RMDC(fl4) .-CYLINDER NUMBER 
$SEC<R0),RM0A<R4) .-SECTOR AND TRACK NUMBER 
SURDM(R0).RMUC(R4) ;WORD COUNT 
S8UF (RO) ,RMBA(R4) .-BUFFER ADDRESS 
(SP)*,a#PS .-LOAD THE PSW BACK 

#eiT7.«FMT(R0) .-LOAD THE OFFSET DIRECTION 
OFF COD ;NEG ? 

2S :BRANCH IF NOT 

/rC.$FMT(RO) .-CHANGE TO OTHER DIRECTION 
#115.$C0«N0(R0) .-LOAD THE OFFSET COMMAND 
R0,R«05 .-CALL THE DRIVE HANDLE 

6$ .-BRANCH IF QUEUE FAILS 

FMTDPS* 16 .-OFFSET DONE ? 

3$ .-BRANCH IF SO 

6$ .-BRANCH IF ERROR 

#2,R5 .-ADJUST RETURN ADDRESS 

(SP) FMTDPS* SCOMND .RESTORE THE I/O COMMAND 

<SP)*.R4 .RESTORE REG 

(SP) ♦.R3 

{SPJ*,R2 

(SP)*,R1 

R5 .-EXIT 



MAKEUP ROUTINE 

THIS ROUTINE ISSUES A WRITE CHECK OR READ COMMAND TO THE SELECTED DRIVE 
IN OFFSET MODE. 

AND SET UP THE FOLLOWING PARAMETERS 



CALL 



DTUW 
TRNSWT 
DRVACT 
TIMER 



JSR 
RET 



= PHYSICAL DRIVE NUMBER 
= FMTDPB 
= 1 

= 1 SECOND 



PC. MAKEUP 



"ZRMTBO RM05/3/2 DR CMPT TST 
GET VALUE FOR SOFTWARE SWITCH 



100 
101 
102 
10? 
104 

105 014476 

106 014500 

107 014502 

108 014504 

109 014510 

110 014516 

111 014520 
11? 014524 

113 014530 

114 014534 

115 014542 

116 014550 

117 014554 

118 014560 

119 014566 

120 014570 

121 014576 

122 014600 

123 014604 

124 014606 

125 014610 

126 014612 
:27 

128 
129 
130 
131 
132 
133 
134 
135 



MACRO V04.00 
REGISTER 



4-APR-81 18''2:15 



M 

PAGE 



5 

9-21 



SEO 0064 



MAIN PURPOSE OF THIS ROUTINE. TO EXECUTE A COmAND WHILE ASSURE THAT 
THIS READ OR WRITE-CHECK COMMAND BEING EXECUTED IN OFFSET MODE. 
ROUTINES USED TD.SC,STO.( IN DRIVE HANDLER ) 



010146 






MAKEUP: 


MOV 


RI.-(SP) 




010246 








MOV 


R2 -(SP) 




010446 








MOV 


R4.-(SP) 




012702 


000151 






MOV 


#WCKD,R2 


.•WRITE CHECK DATA IN TEST 6 


022737 


000010 


001 340 




CMP 


/riO.TSTNM 


;0N TEST 8 ? 


001002 








BNE 


1$ 


; BRANCH IF NOT 


012702 


000171 






MOV 


/rRDDAT.R2 


."READ DATA COMMAND IN TEST 8 


005037 


004524 




It: 


CLR 


FMTDP8+16 


.■CLEAR THE STATUS WORD 


110237 


004510 






M0V8 


R2,FMTDPB*tC0MND 


.•LOAD THE COMMAND INTO PD8 


013737 


001224 


030310 




MOV 


DRIVE. DTUW 


.•ACTIVE DRIVE NUMBER 


012737 


004506 


030246 




MOV 


#FMTDPB,TRNSWT 


.•TRANSFER UNDERWAY FLAG 


013701 


001224 






MOV 


DRIVE. Rl 


.•DRIVE NUMBER 


013704 


030324 






MOV 


RMADR.R4 


;RH/RM BASE ADDRESS 


112761 


000001 


030176 




M0V8 


*1.DRVACT(R1) 


.ACT'VE DRIVE FLAG 


006301 








ASL 


Rl 


;WORD INDEX 


012761 


060000 


030270 




MOV 


#60000. TIMER(Rl) 


; ONE SECOND TIMER 


006201 








ASR 


Rl 




010264 


000000 






MOV 


R2.RMCS1(R4) 


.ISSURE WRITE CHECK OR READ 


012604 








MOV 


{SP)*,R4 


.-RESTORE REG 4. 1 


012602 








MOV 


(SP)*,R2 




012601 








MOV 


(SP)*,R1 




000207 








RTS 


PC 


.-EXIT 



SCORE ROUTINE 

ROUTINE TO UPDATE THE TEST SCORE 

TA8LEX = ADDRESS OF CURRENT SCORE BOARD 

SOEVM = LOGICAL DRIVE * 

DRIVE = PHYSICAL DRIVE NUMBER 

CMSEC = END SECTOR ADDRESS 

STARSC = START SECTOR ADDRESS 

CALL 



1137 










JSR 


PC. SCORE 


1138 










RET 




1139 














1140 014614 








SCORE: 






014614 


010146 








MOV 


RI.-(SP) 


014616 


010246 








MOV 


R2.-(SP) 


014620 


010346 








MOV 


R3.-(SP) 


014622 


010446 








MOV 


R4,-(SP) 


1141 014624 


023737 


001362 


001360 




CMP 


CMSEC.STARSC 


1142 014632 


003473 








BLE 


9$ 


1143 014654 


022737 


000010 


001340 




CMP 


#10.TSTNM 


1144 014642 


001011 








BNE 


2$ 


1145 014644 


005737 


004504 






TST 


OFF COD 


1146 014650 


001403 








BEO 


1$ 


1147 014652 


012703 


003676 






MOV 


#RDP0.R3 


1148 014656 


000413 








BR 


4$ 


1149 014660 


012703 


003216 




11: 


MOV 


#RDN0.R3 


1150 014664 


000410 








BR 


4S 


1151 014666 


005737 


00450^ 




2t: 


TST 


OFFCOD 


1152 014672 


001405 








BEO 


3t 



;PUSH Rl ON STACK 

;PUSH R2 ON STACK 

;PUSH R3 ON STACK 

.-PUSH R4 ON STACK 

CORRECT START AND STOP ADDRESSES 

BRANCH IF NOT 

ON TEST 8 

BRANCH IF NOT (MUST BE TEST 6) 
NEGATIVE OFFSET ? 
BRANCH If NEGATIVE OFFSET 
SCORE BOARD ADDRESS 

SCORE 80ARD ADDRESS 

NEGATIVE OFFSET 

BRANCH. IF NEGATIVE OFFSET 



CZRMTBO RM05/5/2 DR CMPT TST MACRO VOA.OO 
GET VALUE FOR SOFTWARE SWITCH REGISTER 



1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1165 
1164 
1 (65 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 



1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 



1200 
1201 
1202 
1203 



014674 
014700 
014702 
014706 
014712 
014714 
014716 
014722 
014724 
014726 
014732 
014734 
014740 
014744 
014750 
014752 
014756 
014760 
014764 
014766 
014770 
014774 
014776 
015000 
015002 
015004 
015010 
015012 
015016 
015020 
015022 
01 5022 
01 5024 
015026 
01 5030 
01 5032 



015034 
015034 
01503O 
015040 
015044 
015050 
01 5054 



012703 
000402 
012703 
113702 
005702 
001404 
062703 
005302 
001374 
010337 
010301 
013702 
013703 
116204 
060304 
022704 
003003 
162704 
000772 
060401 
023703 
002412 
105221 
005204 
005203 
022704 
002367 
013701 
005004 
000763 

012604 
012603 
012602 
012601 
000207 



010046 
010246 
012700 
116002 
042702 
116037 



002536 

002056 
004517 



000020 

002054 

001270 
001360 
004424 

000017 

000020 

001362 



000017 
002054 



3$: 
4$: 



5$: 
6$: 

11$: 



7$: 
8S: 



9$: 





N 5 




APR-81 
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22 


MOV 


#OVWP0,R3 


/SCORE BOARD ADDRESS 


BR 


4$ 




MOV 


#0VWN0,R3 


.•SCORE BOARD ADDRESS 


Move 


fMTDPB*$TRK.R2 


.-LOAD THE TRACK NUMBER 


TST 


R2 


;0N TRACK 0 


BEO 


6$ 


.-BRANCH IF IT IS 


ADD 


#16. .R3 


.EACH SCORE BOARD TAKES 16 BYTES 


DEC 


R2 


.•LOCATED ? 


BNE 


5$ 


.•BRANCH IF NOT 


MOV 


R3.TA8LEX 


.-STORE THE TABLE STARTING ADDRESS 


MOV 


R3.R1 


:RE ASSIGN REGISTERS 


MOV 


$0EVM.R2 


.-LOGICAL DRIVE » 


MOV 


STARSC,R3 


.•START SECTOR 


MOVB 


INDST(R2),R4 


.-LOCATE THE STARTING POINT FOR SCORE 


ADD 


R3,R4 


.-UPDATE POINTER 


CMP 


#15.,R4 


.-SHOULD POINTER BE ADJUSTED ? 


BGT 


7$ 


.-BR IF NO 


SUB 


#16. ,R4 


; ENTRY POINT AT THE SCORE BOARD 


BR 


11$ 


* 


ADD 


R4.R1 


* 


CMP 


CMSEC.R3 


.-ENDING SECTOR REACHED ? 


BLT 


9$ 


.-BRANCH JF IT IS 


1NC8 


(RD* 


;1NC SCORE AND POINT TO NEXT LOGICAL 


INC 


R4 


.-INCREMENT LOGICAL DRIVE » 


INC 


R3 


.-INCREMENT SECTOR COUNT 


CMP 


#15..R4 


.TIME TO RESET TABLE ? 


6GE 


8$ 


.-eRANCH IF NOT 


MOV 


TABLEX.RI 


.RESET TABLE ADDRESS 


n o 






BR 


8$ 


.-LOOPING BACK 


MOV 


(SP)*.R4 


;;POP STACK INTO R4 


MOV 


(SP)*,R3 


.-.-POP STACK INTO R3 


MOV 


(SP)+,R2 


;;POP STACK INTO R2 


MOV 


(SP)*,R1 


;;P(F STACK INTO R1 


RfS 


PC 





SEO 0065 



LABAD ROUTINE 

LOCATE THE START SECTOR AND THE TERMINATE SECTOR OF THE PREVIOUS 
OPERATION. 

STARSC = STARTING SECTOR 

CMSEC - ENDING SECTOR 

INFORMATION FROM SRMDACFMTDPB) .$RMWC (FMTDPB) ,$SEC (FMTPPB) 
$SEC(FMTDP8) ,$WRDM(FMTDPB) 

CAI I 

JSR PC. LABAD 
RET 



LA8AD; 



004506 
000026 
177740 
000010 



001 360 



MOV RO.-(SP) 

MOV R2,-(SP) 

MOV #FMTDP8,R0 

MOVB $RMDA(R0),R2 

BIC #1 77740. R2 

MOVB $SEC{RO). STARSC 



;;PUSH RO ON STACK 
.-.-PUSH R2 ON STACK 
;DPB ADDRESS 

.HARDWARE TERMINATING SECTOR 
.CHOP OFF HIGH ORDER BITS IF ANY 
.-STARTING SECTOR ADDRESS 



:2R«T80 RM05/3/? OR CHPT TST »UC«0 i/(K.OO 
GET VALUE FQR SOFTWARE SWITCH REGISTER 



B 6 
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SEO 0066 



^20^ 


015062 


005702 








TST 


1?0S 


015064 


00''404 








BEQ 


1?06 


015066 


005502 








DEC 


1207 


015070 


010257 


001562 






WV 


^1208 


015074 


000416 








BR 


1209 


015076 


005760 


000022 




1$: 


TST 


1210 


015102 


001410 








BEO 


1211 


015104 


026060 


000022 


000004 




CMP 


1212 


015112 


001004 








BNE 


1213 


015114 


116057 


000010 


001362 




Move 


1214 


015122 


0^0405 








BR 


1215 


015124 


. V757 


000037 


001362 


2$: 


MOVB 


1216 


01513? 








5$: 






0.515c 


'^126C 








MOV 




015154 


012600 








MOV 


1217 


015156 


000207 








RTS 



R2 
1$ 

R2 

R2.CMSEC 
5S 

$R«UC(R0) 



TERMINATOR AT 0 SECTOR 
BRANCH If IT IS 
DECREMENT ONE SECTOR COUNT 
ENDING SECTOR ADDRESS 
EXIT 

WORD COUNT = 0 
BRANCH IF IT IS 

WORD COUNT CHANGED AT ALL 



2$ 

$RMWC(RO).SWRDM(RO) 
2$ ; BRANCH If CHANGED 

$S:-C(RO).CMSEC ;£ND SECTOR = START SECTOR 
5f .-EXIT 
*31..rMSEC .-END AT SECTOR 31 



(SP)*.R2 
{SP)+.RO 
PC 



;;POP STACK 
;;POP STACK 



INTO R2 
INTO RO 



1218 
1219 
1220 
1221 
1222 
1225 
1224 
1225 
1226 



1227 
1228 
1229 
1250 
1?5i 
1252 
1255 
1254 
1255 
1256 
1257 
1238 
1259 
1240 
1241 
1242 
1245 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1255 
1254 
^255 
1256 



015H0 
015142 
015150 
015154 
015162 
015170 
015176 
015202 
015206 
015210 
015214 
015216 
U1 5222 
015230 
015236 
015242 
015246 
015252 
015256 
015262 
015270 
015276 
015502 
015306 
015310 
015312 
015316 
015320 
015324 
015330 
015334 
015536 



000004 
012757 
004757 
012757 
012757 
012757 
012706 
012702 
005022 
022702 
105574 
012700 
012760 
1127o0 
005060 
113710 
015702 
062702 
010260 
012760 
012760 
004757 
004057 
004506 
000774 
005737 
001775 
012700 
004737 
005760 
100010 
004737 



000001 
050554 
}77777 
■\77777 

001100 
004356 

004506 
160000 
000161 
000010 
001224 
001270 
000021 
000012 
045456 
004526 
021042 
031062 



004524 

004506 
017452 
000016 

030334 



.•TEST 7 

;SELF TESTrWRITE CYLINDERS JDEVM*17,$DEVM*17*128.SDEVM*17*128X2.ETC, 

.THEN EXECUTE WRITE CHECK TO DECTECT ANY DATA OR HEADER PROBLEM 

;FOR THE SELECTED LOGICAL DRIVE 

;$DEVM: LOGICAL DRIVE # 

.'DRIVE: PHYSICAL DRIVE * 



001176 

030264 
030266 
001340 



TST7: 



IS: 



ALL DONE 
BRANCH IF 



000004 
000002 



000006 
000014 



2$: 

5$: 



SCOPE 

MOV #1.$TIMES 

JSR PC.RMINIT 

MOV *-1,SAVEFG 

MOV #-1.SEEKFG 

MOV #7.TSTNM 

MOV *STAC(C.SP 

MOV #SELF0,R2 

CLR (R2)+ 

CMP /rSELF18.R2 

BHIS 1$ 

MOV (»FMTDP8,R0 

MOV #-8192.,SWRDM(R0) .LOAD 

M0V8 *WRTDAT,$COMND(RO) 

CLR $SEC(RO) 

M0V8 DRIVE, (RO) 

MOV $DEVM,R2 

ADD *17.,R2 

MOV R2.$CYL(R0) 

MOV *8UFFER,J8UF(R0) 

MOV #RM.REG.14(R0) 

JSR PC.FIL8UF 

JSR R0,RM05 
FMTDP8 

BR 2S 

TST FMTDPB+16 

BEO 5S 

MOV #FMTDP8.R0 

JSR PC.^f<0CES 

TST 16(h0) 

BPL 22$ 

JSR PCRMINIT 



;D0 1 ITERATION 
INITIAL THE DRIVE 
SAVE THE RH/RM REG'S 



LOAD TEST NUMBER 
INITIAL THE STACK 
CLEAR THE SELF TEST 



SCORE BOARDS 



NOT 
;SET UP DP8 
FULL TRACK WORJ COUN^ 
.•WRITE DATA CClMWJD 
.•SECTOR 0,TRAC; 0 
;LOAD PHY. DRIVE 
.•LOCATE THE STARTING CYLINDER 

.CYLINDER ADDRESS 

.•RESET BUFFER ADDRESS 

.•ADDRESS TO SAVE ALL RH/RM REG'S 

.-FILL THE BUFFER WITH WORSE CASE PATTERN 

.•CALL DRIVER HANDLER 

.BRANCH IF QUEUE "^AILS 
.-ALL DONE ? 
.•BRANCH IF NOT 
.•REPORT IF ANY ERROR 



ERROR FLAG SET ? 
BRANCH IF NOT 
INITIAL THE DRIVE 



CZRMTBO RM05/5/2 OR CMPT TST MACRO vOA 
GET VALUE fOfi SOFTWARE SWITCH REGISTER 
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PAGE 
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SEO 006/ 



1257 

1258 

1259 

1260 

1261 

1262 

1263 

126A 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

127A 

1275 

1276 

1277 

1278 

1279 

1280 

1281 

1282 

1283 

128A 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 



015542 
015550 
015556 
015562 
015570 
015572 
015376 
015404 
015412 



015414 
015422 

015426 
015452 
015456 
015442 
015446 
015452 
015454 
015456 
015462 
015464 
01 5470 
015474 
015500 
015502 
015504 
015510 
015512 
015516 
015522 
015524 
015530 
015534 
015540 
015542 
015544 
015550 
015552 
015554 
015562 
015566 
015572 
015574 
015602 
015604 
015610 
015614 
015620 
015624 
015652 
015640 
015642 
015646 



012757 
012757 
105260 
126057 
005744 
005060 
062760 
022760 
105535 



112760 
012702 

015705 
062705 
010560 
005057 
004057 
004506 
000774 
005757 
001775 
012700 
004737 
005760 
100401 
105212 
004557 
000415 
004757 
005757 
001775 
012700 
004757 
005760 
100401 
105212 
005757 
001006 
005202 
012757 
000157 
105260 
005202 
126057 
005004 
005037 
000137 
005060 
012702 
062760 
022760 
105404 
005037 
000137 



1 77777 
000011 
000011 

000010 
000200 
001440 



000151 
004356 

001270 
000021 
000012 
004504 
031062 



004524 

004506 
017452 
000016 



014244 

014476 
004524 

004506 
017452 
000016 



004504 



000001 
015446 
00001 1 



004504 
015446 
000010 
004356 
000200 
001440 

004504 
015446 



050264 
050266 

001372 



000012 
000012 



000002 



MOV #-1,SAVEfG 

110V #-1.SEEKFG 

22S: INCB STRKCPO) 

CMP8 $TRK(RO),TRKLMT 

BLE 2$ 

CLR $SEC(RO) 

ADD #128. .$CYL(RO) 

CMP #800.,$CYL(RO) 

BHJS 2$ 



NEXT TRACK 

ALL TRACK ARE DONE ? 
BRANCH IF NOT 

RESET SECTOR AND TRACK 
ADVANCE TO NEXT ZONE 

ALL 7 ZONES ARE DONE "> 
BRANCH iF NOT 



.•EXECUTE WRITE CHECK TO DETECT ANr DATA OR HEADER PROBLEM 



4S: 

5$: 



6$: 
7$: 



004504 
000011 001572 



8$: 



9$: 



10$: 



000012 
000012 



M0V8 


4rwCKD,$COMND(R0) 


MOV 


#SELF0,R2 


MOV 


$DEVM.R5 


ADD 


#17. .R5 


MOV 


R5.$CYL(R0) 


CLR 


Of J- COD 


JSR 


R0.RM05 


FMTDP8 




BR 


4S 


TST 


KMTDP8+16 


BEO 


5$ 


MOV 


#FMTDPB,RO 


JSR 


PC.PROCES 


TST 


16(R0) 


BMI 


6$ 


INCB 


(R2) 


JSR 


R5.0FFST 


BR 


8$ 


JSR 


PC .MAKEUP 


TST 


FMTDP8+16 


BEO 


7$ 


MOV 


#FMTDPB,RO 


JSR 


PC.PROCES 


TST 


16(R0) 


BMI 


8$ 


INCB 


(R2) 


TST 


OFF COD 


BNE 


9$ 


INC 


R2 


MOV 


#1. OFF COD 


JMP 


4S 


INCB 


$TRK(RO) 


INC 


R2 


CMP8 


$TRK(RO).TRKLMT 


BGT 


10S 


CLR 


OFF COD 


JMP 


4$ 


CLR 


$5EC(R0) 


MOV 


#SELF0,R2 


ADD 


#128..$CYL(R0) 


CMP 


#800..$CYL(R0) 


BLO 


11$ 


CLR 


OFF COD 


JMP 


4$ 



.•CHANGE TO WRITE CHECK COMMAND 
;R2 POINTS TO SCORE BOARD 
;CAN NOT BE DESTORIED 
.-LOACATE STARTING ADDRESS 

.•STARTING CYLINDER 

.-SET NEGATIVE OFFSET FLAG 

.-CALL DRIVE HANDLER 

.•BRANCH ic QUEUE FAILS 
;ALL DONE ? 
.•BRANCH IF NOT 



ANY ERROR 

YES. THEN DON'T INCREMENT SCORE 

INCREMENT SCORE 

OFFSET 

BRANCH IF OFFSET FAILS 

EXECUTE WRITE CHECK IN OFFSET MODE 

ALL DONE / 

BRANCH IF NOT 

REPORT IF ANY ERROR 

ERROR BIT SET ? 

DON'T INCREMENT SCORE 

INCREMENT SCORE 

POSITIVE OFFSET IS DONE ^ 

BRANCH .\\ DONE 

INCREMENT SCORE BOARD POINTER 

SET POSITIVE OFFSET FLAG 

POSITIVE OFFSET TEST 

INCREMENT TO NEXT TRACK 

ADVANCE SCORE BOARD POINTER 

ALL TRACKS ARE DONE ? 

BRANCH . IF ALL DONE 

HESfcT OFFSET DIRECTION 

TRY THE NEXT TRACK 

TRACK 0. SECTOR 0 

RESET SCORE BOARD 

ADVANCE TO NEXT ZONE 

ALL 7 ZONES ARE DONE ? 

BRANCH ,IF ALL DONE 

RESET OFFSET FLAG 

TO NEXT ZONE 
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SEC ^U^'- 



1314 
1315 
1316 
1317 
1318 
1319 
^320 
1321 
1322 
1323 
1324 



015652 000240 



11$: 



NOP 



;T0 NEXT TEST 



TESTIO TEST 8 READ COMPATIBLE TEST 
CYLINDERS TESTED : $DEVM*1 1 2.$DEVM+1 1 2*1 28XN N=1 TO 5 
THIS TEST SELECT ONE CYLINDER FOR EACH LOGICAL DRIVE F^OM 
ZONE 1 TO ZONE 6 

SDEVM = LOGICAL DRIVE # 
DRIVE = PHYSICAL DRIVE # 





01 5654 


000004 






TST10: 


SCOPE 








015656 


012737 


000001 


001176 




MOV 


#1,$TIMES 


;;D0 1 ITERATION 
;LOAD TEST NUMBER 


1325 


015664 


012737 


000010 


001340 




MOV 


fflO.TSTNM 


1326 


01 5672 


012706 


001100 

WW ■ ■ WW 






MOV 


ffSTACK.SP 


.-INITAIL THE STACK POINTER 


1327 


01 5676 


012702 


003216 






MOV 


#RDNO R2 


.-CLEAR THE SCORE BOARD OF READ TEST 


1328 


01 5702 


005022 






1$: 


CLR 


CR2)* 




1329 


015704 


022702 


004356 






CMP 


*RDP18*16.,R2 


.-ALL DONE 


1330 


015710 


101574 








BHl 


IS 


.-BRANCH IF NOT 


1331 


01 571 2 


005057 


004504 






CLR 


OFF COD 


.-SET NEGATIVE OFFSET FLAG 


1332 


015716 


012700 


004506 




LOOP 3: 


MOV 


*FMTDP8.R0 


;SET UP DP8 BLOCK 
1) .-LOAD THE WORD CTR,FULL TRACK 


1333 


015722 


012760 


160000 


000004 




MOV 


#-8192..$WRDM(RC 


1334 


015750 


005060 


000010 






CLR 


$SEC(RO) 


.-TRACK 0 AND SECTOR 0 


1335 


015754 


112760 


0001 71 


000002 




MOVB 


*RDDAT.$COMND(RO) .LOAD THE READ DATA COMMAND 


1336 


015742 


01 2760 


043456 


000006 




MOV 


*8UFFER.$BUF(R0) 


.RESET BUFFER ADDRESS 


1337 


015750 


012760 


004526 


000014 




MOV 


#RM.«EG,14(R0) 


.-ADDRESS TO SAVE ALL RH/RM ADDRESS 


1338 


015756 


115710 


001224 






MOVB 


DRIVE, (RO) 


.-LOAD PHY. DRIVE ADDRESS 


1339 


015762 


013705 


001270 






MOV 


SDEVM, R3 


.-LOCATE STARTING CYL 


1340 


015766 


062703 


000160 






ADD 


#112. ,R3 




1341 


01 5772 


010560 


000012 






MOV 


R3.$CyL(R0) 


.-STARTING CYL ADDRESS 


1542 


01 5776 


004057 


031062 




1S: 


JSR 


RO,RnOS 


.-CALL THE DRIVE HANDLER 


1343 


016002 


004506 








FMTDPB 






1344 


016004 


000774 








BR 


IS 




1545 


016006 


005757 


004524 




2$: 


TST 


FMTDP8+16 


.-COMMAND DONE ? 


1546 


016012 


001 775 








6E0 


2S 


.-BRANCH IF NOT 


1347 


016014 


012700 


004506 






MOV 


*FMTDP8,R0 




1548 


016020 


004757 


01 7452 






JSR 


PC.PROCES 


.-REPORT IF ANY ERROR 


1549 


016024 


004757 


015054 






JSR 


PCLABAD 


.•LOACATE START AND STOP ADDRESS 


1550 


016050 


005760 


00C016 






TST 


16(R0) 


;ANY ERROR ? 


1551 


016054 


100011 








8PL 


3$ 


.-BRANCH. IF NONE 


1552 


016036 


004757 


050354 






JSR 


PC.RMINIT 


.-INITIAL THE SYSTEM 


1555 


016042 


012757 


M7777 


030264 




MOV 


#-l,SAVEF6 




1554 


016050 


012757 


y77777 


030266 




MOV 


#-1,SEEKF6 




1355 


016056 


000414 








BR 


5$ 


.-NOT INCREMENT THE SCORE 


1361 


016060 


004737 


014614 




3S: 


JSR 


PC, SCORE 


.-UPDATE THE SCORE 


1362 


016064 


005760 


000022 




4$: 


TST 


SRMUC(RO) 


.-WORD COUNT= 0 


1365 


016070 


001407 








6E0 


5S 


.-BRANCH IIF IT IS 


1364 


016072 


116060 


000026 


000010 




MOVB 


$RMDA(RO).SSEC(RO) .-UPDATE THE NEW STARTING SECTOR 


1365 


016100 


016060 


000022 


000004 




MOV 


SRMWC(RO),SWRDM(RO) .-UPDATE WORD COUNT 


1366 


016106 


000755 








BR 


IS 


.•CONTINUE 


1367 


016110 


012700 


004506 




5$: 


MOV 


*FMTDP8.R0 


.-RESET THE DPS BLOCK 


1368 


016114 


012760 


160000 


000004 




MOV 


*-8192..SWRDM(R0) ;FULL TRACK WORD COUNT 


1369 


016122 


105060 


000010 






CLR8 


SSEC(RO) 


.-RESET TO SECTOR O.TRACK NOT CHANGED 


1370 


016126 


004557 


014244 




6$: 


JSR 


R5,0FFST 


.-CALL OFFSET 


1371 


016152 


000443 








BR 


10S 


.-BRANCH IF OFFSET FAILS 


1372 


016134 


004737 


014476 






JSR 


PC, MAKE UP 


.•EXECUTE READ DATA IN OFFSET MODE 


1575 


016140 


005737 


004524 




7$: 


TST 


FMTDPB* 16 


.'OFFSET READ IS DONE ? 
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A-APR-81 18:1?: 15 



E 

PAGE 



6 

9'i6 



SFO 0069 



1574 

1575 

1576 

^377 

1378 

1379 

^380 

1581 

158? 

1383 

1389 

1390 

1391 

139? 

1393 

139A 

1395 

1396 

1397 

1^98 

1399 

1400 

1401 

'402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

'419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 



1427 
1428 
1429 
1430 
1451 
1452 
1433 



016144 
016146 
016152 
016156 
016162 
016166 
0^6170 
016174 
016202 
016210 
016212 
016216 
016222 
016224 
016252 
016240 
016242 
016250 
016256 
CI 6260 

016264 
016270 
016274 
016500 
016304 
016312 
016314 

016320 
016324 
016326 
016334 
016340 



016342 
016344 
016352 
016360 
016364 
016366 
016370 
016374 
016400 



001775 
012700 
004757 
004737 
005760 
100011 
004737 
012737 
012737 
000414 
004757 
005760 
001407 
116060 
016060 
000752 
062760 
022760 
103402 
000137 

013703 
062703 
010360 
105260 
126037 
003002 
000137 

005737 
001005 
012737 
000137 
000240 



000004 
012737 
012737 
012706 
005046 
005046 
012746 
012746 
012702 



















017452 






jSR 


01 5034 






JSR 


000016 






TST 








BPL 


030554 






JSR 


M7777 


030264 




MOV 


}77777 


0^0266 




MOV 








BR 


014614 




8S- 


JSR 


000022 




9S: 


TST 








BEQ 


000026 


000010 




M0V8 


000022 


000004 




MOV 








BR 


000200 


00C012 


10$: 


ADD 


001377 


000012 




CMP 








8L0 


015776 






JMP 


001270 




11$: 


MOV 


000160 






ADD 


000012 






MOV 


000011 






1NC8 


000011 


001372 




CMP8 








ecT 


015776 






JMP 


004504 




12$: 


rsT 








BNE 


000001 


004504 




MOV 


015716 






JMP 






13$: 


NOP 



000001 
000011 
001100 



004557 
005676 
004356 



7$ 

*FMTDP8.R0 

PCPROCES 

PC.LA8AD 

16(R0) 

8$ 

PC.Rr«JNJT 
*-1.SAVEFG 
*-1.SEEKFG 
10$ 

PC. SCORE 

$RMWC(RO) 

10$ 

$RMDA(RO). 
$RMWC(RO). 
6$ 

#128..$CYL 
*767,,$CYL 

1$ 
1$ 



.•BRANCH IF NOT 
.•REPORT IF ANr ERROR 

;LOCATF THE START mND STOP ADDRESSES 
. cWROR ? 
.'BRANCH, IF NONE 
.•INITIAL THE SYSTEM 



.-NOT UPDATE THE SCORE 
.•UPDATE THE SCORE 
.'WORD COUNT IS 0 
.'BRANCH IF IT IS 
$SEC(RO) .'UPDATE SECTOR ADDRESS 
$WRDM(RO) .'UPDATE WORD COUNT 

.•LOOPING UNTIL CURRENT TRACK IS DONE 
(RO; .'ADJUST CYLINDER TO NEXT ZONE 
(RO) .'ALL 6 ZONES ARE DONE ? 

.'BRANCH IF ALL DONE 



.'LOCATE STARTING CYLINDER 



$D£VM,R3 
#112. .R3 

R3.$CYL(R0> .'STARTING CYLINDER 

$TRK{RO) ;T0 NEXT TRACK 

$TRK{RO),TRKLMT ;ALL SRUfACE ARE DONE ? 

12$ .'BRANCH IF ALL DONE 

1$ .'LOOPING UNTIL CURRENT TRACK IS DONE 



Of F COD 
13$ 

#1.0FFC0D 
L00P3 



.'OFFSET CODE = POSITIVE ? 
;1F EQUAL, THEN AlL DONE 
;StT POSITIVE OFFSET FLA3 

.'TO NEXT TEST 



TESTII TEST 9 

REPORT THE TEST SCORES 

DIRECT THE OPERATOR TO CHANGE PACK AND MOUNT TO OTHER DIRVE 

$DEVM = LOGICAL DRIVE #. SHOULD NOT BE UPDATED BEFORE THE 
REPORT IS COMPLETED, 

BADSEC = 0, (DRIVES ARE COMPATIBLE) 
= -1, (DRIVES NOT COMPATIBLE) 

CMTRK = TRACK NUMBER FOR CONTROLLING THE SCORE TYPING. 



001176 
001340 



TST11: SCOPE 

MOV #1,$TIMES 

MOV #11,TSTNM 

MOV fSTACK.SP 

CLR -(SP) 

•CLR -(SP) 

MOV fSELFO+l.-CSP) 

MOV #RDPO.-(SP) 

MOV #SELF0.R2 



;D0 1 ITERATION 
LOAD THE TEST NUMBER 
LOAD THE STACK POINTER 
DUMMY SCORE BOARD ADDRESSES 

POSITIVE OFFSET READ TEST SCORE ADDRESS 
POSITIVE OFFSET TEST SCORE 
NEGATIVE OFFSET READ TEST SCOPE 



)05; 
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b£0 0070 



H3A 

K3S 

K56 

H57 

1458 

K39 

1440 

1441 

1442 

^443 

■"444 

14^5 

1446 

1447 

1448 

1449 

1450 

1451 

145? 

1453 

1454 

1455 

H56 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

'464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

'489 

1490 



016404 
016410 
016414 
016420 
016422 
016426 
016430 
0:6434 
C16436 
0164*.0 
016442 
016444 
016450 
016454 
016456 
016460 
016462 
016464 



016466 
016472 
016476 
016500 
016504 
016510 
016514 
01o516 
016522 
016526 
016530 
016534 
016536 
016542 
0 1 6544 
016552 
016554 
016560 
016562 
016570 
016572 
016576 
016600 
016606 
016610 
016614 
016616 

016620 
016624 
016626 
016632 
016654 
016642 
016644 
016650 



012703 
013701 
122712 
101411 
012705 
111304 
062704 
110423 
005305 
001372 
000402 
062703 
062702 
005301 
002356 
012603 
012602 
001 351 



005037 
005037 
005001 
012702 
012703 
030337 
001502 
005037 
123701 
001434 
122712 
101403 
004537 
000001 
122762 
101403 
004537 
000002 
122762 
101403 
004537 
000003 
122762 
101403 
004537 
000004 
000441 

^227'^2 

101403 
004537 
000001 
122762 
101403 
004537 
000002 



003216 
001372 
000007 

000020 

000006 



000020 
000002 



001 542 
001364 

002056 
000001 
002006 

001 366 
0012^0 

000016 

017152 

000016 

017152 

000014 

017152 

000014 

017152 

000016 
017152 
000016 
017152 



IS. 
2$: 



5$: 



5$: 



MOV 


#RDN0,R3 


.•NEGATIVE OFFSET READ COMPATIBLE TEST SCORE 


MOV 


TRKLMT,R1 


;R1= TRACK NUMBER 


CMP8 


#7, (R2) 


;SELF READ TEST SCORE IS TOO LOW 


BLOS 


4S 


.-BRANCH IF NOT 


MOV 


#16. ,R5 


.■INCREMENT READ COMPATIBLE SCORE FOf< ALL 16 


Move 


(R3) ,R4 


.-ADJUST SCORE BY ADDING 6 


ADD 


«6,R4 




M0V8 


R4,(R3)* 


; UPDATE SCORE AND POINTS TO NEXT DRIVE 


DEC 


R5 


;ALL DRIVES ARE UPDATED ? 


BNE 


3$ 


.-BRANCH IF NOT 


BR 


5$ 




ADD 


#16.,R3 


; ADJUST POINTER OF SCORE BOARD ADDRESS 


ADD 


#2.R2 


.UPDATE THE SELF TEST SCORE ADDRESS 


DEC 


R1 


;ALL TRACKS DONE ? 


BGE 


2S 


.-BRANCH IF NOT 


MOV 


(SP)*,R3 


.-GET NEXT PAIR 


MOV 


(SP)*.R2 




BNE 


1$ 





.SET ACCEPTANCE FLAG, INITIALIZE THE TABLE POINTERS AND TRACK NU«ER 

CLR BADSEC ;SET ACCEPTANCE FLAG 

CLR CMTRK .-START FROM TRACK 0 

CLR R1 ;START FROM LOG DRV 0 

MOV #0VUN0.R2 .-SCORE BOARD BASE ADDRESS 

MOV *8IT0.R3 .-BIT POSITION FOR LOG DRV 0 

L00P4: BIT R3,ASNLST ;IS THE LOG DRV UNDER TEST ? 

BEQ LOOPS .-BRANCH IF NOT 

CLR NULINE ;NEW LINE INDICATOR 

CMPB SDEVM.RI .-SELF SCORE ? 

BEQ SPATH ;8RANCH IF IT IS 

KPATH: CMPB #14., (R2) .-OVERWRITE NEG OFFSET < 14 ? 

BLOS IS .-BRANCH IF NOT 

JSR R5. PRINT .REPORT EXCEPTIONS 

000001 ;COLl#»< POSITION ON REPORT 
000460 1$: CMPB #14. .0VWP0-0VWN0(R2) .'OVERWRITE POS OFFSET 

BLOC 2$ .-BRANCH IF NOT 

JSR R5. PRINT .-REPORT EXECPTIONS 

000002 .-COLUMN POSITION ON REPORT 
001140 ?J: CMPB #12..RDNO-OVUNO(R2) .READ NEG OFFSET < 6 

BIOS 3$ .-BRANCH IF NOT 

JSR R5. PRINT .-REPORT EXCEPTIONS 

000003 .-COLIHN POSITION ON REPORT 
001620 3$: CMPB #1 2. .RDP0-0VWN0(R2) .READ POS OFFSET < '2 

BLOS 4$ .-BRANCH IF NOT 

JSR R5. PRINT .-REPORT EXECPTIONS 

000004 .-COLl/tJ POSITION ON REPORT 
4$: BR LOOPS ;EXIT 



< 14 



SPATH: CMPB 
BLOS 



#14.. (R2) .-OVERWRITE NEG OFF < 14 

1$ .-BRANCH IF NOT 

JSR R5. PRINT .-REPORT EXECPTION 

000001 .-C0LUr#1 POSITION ON REPORT 
00046C 1$: CMPB #14. ,OVWP0-OVWN0(R2) .-OVERWRITE POS OFFSET 

BLOS 2$ ; BRANCH IF NOT 

JSR R5. PRINT .-REPORT EXCEPTION 

000002 .-COLUMN POSITION ON REPORT 
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^^91 

'";92 

K93 

K94 

U95 

K96 

'497 

U93 

U99 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1*^09 

1510 

1511 

1512 

1513 

^514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 



016652 
016656 
016660 
016666 
016670 
016674 
016676 
016702 
016^04 
016712 
0''6714 
016720 
016722 

016722 
016724 
016726 
016730 
016732 
016736 
016740 
016744 
016750 
016752 
016756 
016760 
016^64 
016766 
016770 



016774 
017002 
017004 
017010 
017012 

017016 
017C22 
01 7030 
017034 
017040 
017044 
01 7050 
017052 
017053 
017054 

017060 
017062 
017064 
017066 
017070 



013704 
006304 
122764 
101403 
004537 
000003 
01 3704 
006304 
122764 
101403 
004537 
000004 



005201 
000241 
006103 
005202 
022701 
103264 
005237 
012702 
005001 
013703 
001404 
062702 
005303 
001 374 
012703 



123737 
003642 
005737 
001402 
104401 

104401 
012777 
005077 
104^01 
104401 
013746 
104403 
001 
000 
104401 

104411 
012605 
105715 
001 374 
005002 



Ov/l 364 
000006 
017152 
001 364 
000006 
017152 



00001 7 

C01364 
002056 

001364 

000020 

000001 



001207 

001207 
017444 
011274 
042272 
001274 
001224 



042310 



004356 



004357 



2S: 



3$: 



4$: 

LOOPS : 



L00P6: 



1$: 



2$: 



4-APR-81 



MOV 

ASL 
CMP8 
BLOS 
JSP 

000003 

MOV 

ASL 

CMP8 

BLOS 

JSR 

000004 



INC 

CLC 

ROL 

INC 

CMP 

BHIS 

INC 

MOV 

CLR 

MOV 

BEO 

ADD 

DEC 

BNE 

MOV 



001 3o4 001372 
001342 



AT THIS POIN 
R1 
R2 

R3 . 

CMP8 

Bif- 

TST 

BEQ 

TYPE 



011276 



DISMNT; 



IS: 



DEASG: 



TYPE 
MOV 

CLR 

TYPE 

TYPE 

MOV 

TYPOS 

.BYTE 

.BYTE 

TYPE 

RDLIN 

MOV 

TST8 

BNE 

CIR 
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CMTRK.R4 .-LOCATE THE SELF TEST SCORE 

R4 ;WORD INDEX 

*6.SELF0(R4) .-SELF READ NEG OFFSET < 6 ? 

3$ .-BRANCH IF NOT 

R5. PRINT 

.•REPORT EXCEPTIONS 

CMTRK,R4 .-LOCATE THE SELF TEST SCORE 

R4 ;WORD INDEX 

#6,SELF0*1 (R4) ;SELF READ POS OFFSET < 6 

4$ .-BRANCH IF NOT 

R5. PRINT .-REPORT EXCEPTIONS 

.-COLUMN POSITION FOR REPORT PRINTING 

R1 .-INCREASE THE LOGICAL DRIVE » 

.-ADJUST THE BIT POSITION 

R3 .-POINTS TO NEXT DRIVE 

R2 .-UPDATE SCORE BOARD BASE ADDRESS 

*15.,R1 ;ALL DRIVES ARE CHECK ? 

L00P4 .-BRANCH IF NOT ALL DONE 

CMTRK ;NEXT TRACK 

*0VWN0,R2 .-RESET SCORE BOARD BASE ADDRESS 

R1 .'LOGICAL DRIVE START FROM 0 

CMTRK.R3 .-LOCATE THE SCORE BOARD BASE ADDRESS 

2$ .-BRANCH IF ON TRACK 0 

*16.,R2 ;F0R EACH TRACK. 16 BYTES 

R3 .-ALL TRACK DONE ? 

1$ .-BRANCH IF NOT 

«8IT0,R3 .-BIT MAP POSITION FOR DRIVE 0 



= LOGICAL DRIVE * START FROM 0 

= ADDRESS OF SCORE BOARD BASE ADDRESS 

= BIT MAP. INDICATE LOGICAL DRIVE 0 1 

CMTRK.TRKLMT ;ALL TRACKS ARE DONE ? 

L00P4 ;N0 

OADSEC .-WAS SCORE PRINTED -> 

DISMNT ;8R IF NO 

.SCRLF .-CR-LF 

,$CRLF ; CR-LF 

#IDLEX.aRMVfcC .-RESET THE INTERRUPT VECTOR 

aRMVEC + 2 .-CLEAR THE INTERRUPT VECTOR 

.MESG12 .-UNLOAD AND DISMOlWT MESSAGE 

.$CDW2 .-SYSTEM NAME 

DRIVE. -(SP) .-PHYSICAL DRIVE NUMBER 

1 
0 

.MESG13 .-MESSAGE TYPE <CR> WHEN READY 

.-READ IN ONE LINE 
(SP) + .R5 .-LOCATE THE READ IN LINE 

(R5) .-CARRIAGE RETURN ? 

1$ .-BR IF NO 

R2 .-LOGICAL DRIVE NUMBER 
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SEO 007? 



^551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1!>83 

1584 

1585 

1586 

1587 

1588 

1589 



1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 



01 7072 
017076 
017102 
017104 
017106 
017110 
017112 
01/114 
017120 
017122 
017126 
017132 
01 71 34 
017142 

01/146 



017152 
017152 
017154 
01 71 56 
017160 
017162 
017166 

017170 
01 71 74 
017200 
01/204 
017210 
017212 
017213 
017214 
017220 
017224 
01 7230 



001404 
000241 
006103 
005202 
000771 
040337 
001412 



006302 



010146 
010246 
010346 
010446 
005757 
100434 

104401 
104401 
104401 
013746 
104403 
001 
000 
104401 
104401 
104401 
104401 



000001 




MOV 


#8IT0.R3 


BIT MAP OF ASSIGNED DRIVE 


C01270 


1$: 


ctv> 


R2,SDEVM 


IS THE LOGICAL DRIVE UNDER TEST ? 




BEO 


2f 


BRANCH IF IT IS 






CLC 




SHIFT THE BIT MAP FOR 






ROL 


R3 ! 


NEXT DRIVE 






INC 


ft2 


•INCRFMENT THE LOGICAL DRIVE » 






BR 


IS 


•LOOPING ,UNTJL THE LOGICAL DRIVE LOCATED 


002012 


2S: 


BIC 


R3,ASSGN2 


■CLEAR THE ASSIGNED BIT 




DC rt 

ocw 






001270 




INC 


$d:-vm 


; INCREMENT THE LOGICAL DRIVE 0 


001270 




MOV 


$DEVM.R2 


;UPDATE SYSTEM BLOCK ADDRESS 






ASL 


R2 




004444 001272 




MOV 


BLKADR(R2),$CDW'' 


; SYSTEM BLOCK ADDRESS 


012772 




JMP 


TST5 


;JUMP TO TEST 5 FOR OTHER DRIVE 


023456 


"ND2: 


JMP 


$EOP ;END OF PASS 



PRINT ROUTINE 
NAME PRINT 

PRINT EXCEPTIONS FOR TEST SCORE 
PARAMETER USED 

NULINE =0 A NEW LINE TO PRINT 

= 1-4 COLW^ NUMBER TO PRINT THE EXCEPTION MARK 



BADSEC = 0 
BADSEC = -1 



FIRST EXCEPTION DETECTED 

NOT FIRST EXCEPTION (DON'T PRINT THE TITLE) 



CALL 



PRINT; 



001342 



001207 
042443 
001274 
001224 



001207 
CO 1207 
042465 
001207 



JSR 

NUMBER 
RET 

Rl 

SDEVh 
R3 



MOV 
MOV 
MOV 
MOV 

TST 
BMI 

TYPE 

TYPE 

TYPE 

MOV 

TYPOS 

• BYTE 

.BYTE 

TYPE 

TYPE 

TYPE 

TYPE 



R5, PRINT 



COLUMN NUMBER 



= LOGICAL DRIVE # 

= LOGICAL DRIVE UNDER TEST 

= BIT POSITION OF LOGICAL DRIVE IN Rl 



RI.-(SP) 

R2.-(SP) 

R3.-(SP> 

R4.-(SP) 

BADSEC 

IS 

,SCRLF 
.MESG16 
.$CDW2 
DRIVE. -(SP) 

1 

0 

.SCRLF 
.SCRLF 
.MESG17 
.SCRLF 



;;PUSH Rl ON STACK 
;;PUSH R2 ON STACK 
;;PUSH R3 ON STACK 
;;PUSH R4 ON STACK 
;FIRST EXCFPTION 

.•BRANCH IF NOT, DON'T HAVE TO PRINT 

.•TITLE 

;CRLF 

.•SCORES FOR DRIVE — 
.-SYSTEM NAME 

.-TYPE THE PHYSICAL DRIVE • 



CR-LF 
CR-LF 

SLe TITLE 1 
CR-LF 



'J^MTBC RM05/5/2 OR CMPT TST i^ACRO 
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.00 <i-APR-81 18:12:15 



I 

PAGE 



6 

9-30 



SEO 0C75 



1604 
'605 
1606 

607 
1608 
1609 
1610 
1611 

1612 
1613 
16K 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1C2A 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
163*. 
1635 
1636 
1637 
1638 
1639 



1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 



017254 
017240 
01 7244 
017252 
017260 
017264 
017266 
0* 7272 
017276 
017300 
017304 
017j10 
017312 
017316 
017322 
017326 
017330 
017332 
017340 
01 7342 
017350 
017354 
017356 
01 7360 
017364 
01 7372 

01 7374 
01 7400 
01 7402 
01 7404 
017410 
017414 
017416 
017422 
017426 
017432 
01 7432 
017454 
017436 
01 7440 
017442 



104401 
104401 
012737 

012737 
005737 
001042 
104401 
01 3746 
104405 
104401 
123701 
001007 
104401 
104401 
104401 
000416 
006301 
016137 
006201 
062737 
104401 
104401 
000000 
104401 
012737 
012504 

020437 
103414 
001405 
104401 
005237 
000767 
104401 
104401 
005237 

012604 
012603 
012602 
012601 
000205 



042546 
001207 
177777 
000001 
001366 

001207 
001364 

042635 
001270 

042750 
042630 
042635 



0044<.4 

0C0014 
042750 



042635 
000001 



001 366 



042635 
001366 

042747 
042637 
001 366 



001 342 
001 376 



1$: 



017356 
017356 

001366 



2S: 



3$: 

4$: 
5$: 

6$: 



7$: 
8S: 



017444 


000240 






IDLEX: NOP 


017446 


000240 






NOP 


017450 


000002 






RTI 










.•PROCESS THE 


017452 


111037 


001330 




PROCES: M0V8 


017456 


005760 


000016 




TST 


017462 


100431 






BMI 


017464 


032760 


100000 


000020 


BIT 


017472 


001410 






BEO 


017474 


032760 


040000 


000020 


BIT 


017502 


001021 






6NE 


017504 


032760 


040000 


000032 


BIT 



TrPE .MESG18 

TVPE .SCRLF 

MOV #-1.8ADSEC 

MOV #1. FAULT 

TST NULINE 

BNE 5$ 

TYPE .SCRLF 

MOV CMTRK,-{SP) 
TYPOS 

TYPE .TAB 

CMP8 SDEVM.RI 

BNE 2% 

'YPE .8LNKS3 

TYPE .SEIFX 

TYPE ,TA8 

BR 4S 

ASL Rl 

MOV BLKA0R(R1}.3$ 

ASR Rl 

ADD nsysNM,3$ 

TYPE ,8LNKS3 
TYPE 

.WORD 0 

TYPE ,TA8 

MOV #1 .NULINE 

MOV (R5)*.R4 

CMP R4, NULINE 

BLO 8S 

BEO 7$ 

TYPE .TAB 

INC NULINE 

BR 6S 

TYPE ,8LNKS4 

TYPE ,«ARKX 

INC NULINE 

MOV (SP)*,R4 

MOV (SP)+.R3 

MOV (SP)+,R2 

MOV (SP) +.R1 

RTS R5 



ORDER TERMINATION 



;SU8 TITLE 2 
; CR-LF 

.•RESET THE ACCEPTANCE FLAG 
;NOT C0«>ATI8LE FLAG 
.-NEW LINE ? 
.•BRANCH IF NOT 
; CR-LF 

;;SAVE CMTRK FOR TYPE OUT 

;;G0 TYPE—DECIMAL ASC U WJ IH SIGN 

;TYPE "TAB" CHARACTER 

.■SCORE FOR SDEVM ITSELF ? 

.•BRANCH IF NOT 

.•TYPE 3 BLANKS 

.MESSAGE "SEL" 

;TYPE TAB 

.•NEXT STEP 

.•LOCATE THE SYS HISTORY FILE 
.•LOCATE THE SYSTEM NAME AND DRIVE * 
.•RESTORE DRIVE * 

.•LOCATE THE SYSTEM NAME AND DRIVE » 

.•TYPE 3 BLANKS 

;TYPE THE SYSTEM AND DRIVE 

;ADDRESS FOR TYPING MESSAGE 

. 7yp£ TAB 

•INDICATE PRINTER STOPS AT ca-LMN 1 

.•RETRIEVE THE DESIRED COL'JMN » FROM 

.•CALLING ROUTINE 

;0N THE RIGHT COLUMN ? 

;IF LOW NOT PRINT 

.•BRANCH IF LOCATED 

.-ADVANCE TO NEXT COLUMN 

.•INCREMENT COLUMN CTR 

.-CHECK AGAIN 

;TYPE 4 BLANKS 

.-THE EXCEPTION MARK "• 0" 

.-NEXT COLUMN 

;;POP STACK INTO R4 

;;POP STACK INTO R3 

;;POP STACK INTO R2 

;;POP STACK INTO Rl 
.•EXIT 

.-RESET ALL RH/RM VECTOR FOR MOUNT AND DISMOUNT 
.-EXIT 



(RO),UNIT 
STATUS (RO) 
ERPROC 

*8IT15.$RMCS1{R0) ;SEE IF 
IS ;8R IF NOT 



.-DRIVE NUMBER FOR ANY ERROR MESSAGES 
;SEE IF DRIVER SIGNALED AN ERROR 
;8R IF ERROR 

'SC SET 

SET 



#8IT14.SRMCS1(R0) ;SEE IF 'TRE' SET 
ERPROC ;BR IF SET 

*8IT14.$RMDS(R0) ;SEE IF 'ERR' SET 



CZKMT30 RM05/3/2 DR CMPT TST MACRO V04.00 
GET VALUE SOFTWARE SWITCH REGISTER 



1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

16o7 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

1685 

1686 

168/ 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

T712 



017512 
017514 
017520 
017524 
017530 
01 7536 
017544 



017546 
017554 
017556 



017562 
017570 
017572 
CI 7600 
017602 
017610 
017612 
017620 
01 7622 
017630 
017632 
017640 
017642 



017644 
017644 
017650 



017654 
01 7654 
01766G 



017664 
017664 
01 7670 



017674 
017674 
017700 



017704 



001015 
004737 
004737 
004737 
012737 
012737 
000207 



032760 
001402 
000137 



032760 
001025 
032760 
001025 
032760 
001025 
032760 
001025 
032760 
001025 
032760 
001025 
000207 



104414 
000137 



104414 
000137 



104414 
000137 



104414 
000137 



020572 
020640 
030334 

1 mil 030264 
1 nm 030266 



000200 000016 
017744 



010000 
004000 
002000 
001000 
040002 
000004 



037160 
01 7720 



037062 
01 7720 



037125 
017720 



037211 
017720 



000016 
000016 
000016 
000016 
000016 
000016 



1$: 



2S: 



4-APR-81 



BNE 
JSR 
JSR 
JSR 
MOV 
MOV 
RTS 



J 6 
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SEO 0074 



ERPROC 

PC.CKERR 

PCCKBUS 

PC.RMINIT 

#-1.SAVEFG 

*-l.SEEKFG 

PC 



8R IF SET 

NO ERROR, CHECK ERROR BITS ANrwAr 
NO ERROR. CHECK BUS ADDR ft WC 
INITIALIZE THE SUB SYSTEM 
CLEAR THE SAVE FLAG 
SET THE NOT IMP FLAG 
RETURN 



.-ORDER TERMINATED WITH AN ERROR - PROCESS THE ERROR 
ERPROC 



BIT 
BEO 
JMP 



#81T0/.$TATUS(R0) ;DONE BIT SET ? 

ERPRCl , ;8R IF ORDER DIDN'T COMPLETE NORMALLY 

DONE .-PROCESS EKROR WITH 'DONE' BIT SET 



;PROCESS ORDER COMPLETION WITH 'ERROR' & 'DONE NOT' BITS 

ERPRC1: BIT *8IT12.$TATUS(R0) .-SEE IF DRIVE WAS UNSAFE 

BNE PUNSAF ;8R IF YES 

BIT *8IT11 .$TATUS(RO) .-PARITY ERROR OCCURRED 

BNE UCPAR ;8R IF IT DID 

BIT *8IT10. STATUS (RO) .-FATAL PARITY ERROR? 

BNE FALPAR ;8R IF THERE IS ONE 

BIT *8iT09. STATUS (RO) .-TIMEOUT? 

BNE SWTIM ;8R IF YES 

BIT /lfl3IT1 4 !BIT01. STATUS (RO) ; DRIVE WENT OFFLINE ? 

BNE OFLIN ;8R IF IT DID 

BIT *eiT2. STATUS (RO) .-PORT REQUEST TIME OUT ^ 

BNE PRTIM ;8R IF IT DID 

RTS PC .-ERROR. RETURN 

.•DRIVE IS PERSISTENTLY UNSAFE 

PUNSAF : 



DISPLY 
JMP 



.EMI 2 
DUMP2 



.•UNCORRECTABLE MASS8US PARITY ERROR OCCURRED 
UCPAR: 



DISPLY 
JMP 



.EM10 
DUMP2 



.••FATAL' MASS8US PARITY ERROR OCCURRED 
FALPAR: 



DISPLY 
JMP 



.EMIT 
DUMP2 



.-SOFTWARE TIMEOUT OCCURRED 
SWTIM: 



DISPLY 
JMP 



,EM13 
DUMP2 



; DRIVE WENT OFFLINE 
OFLIN: 



CZRMTBO RM05/5/2 DR CMPT TST 
GET VALUE FOR SOFTWARE SWITCH 



MACRO VOA.OO 
REGISTER 



A-APR-81 18:12:15 
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1713 

17U 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

I72A 

1725 

1726 

1727 

1728 

1/29 

1730 

1731 

1732 

1733 

173^ 

1735 

1736 

1737 

1738 

1739 

17A0 

17A1 

1742 

17A3 

174^, 

1745 

17A6 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 



017704 
017710 



017714 
017714 
017720 
017724 
017730 
017734 
01 7740 



01 7744 
017752 
017754 
01 7760 
01 77^.6 
CI 7770 
01 7774 
020002 
U20004 
020010 
020016 
020020 
020024 
020032 
020034 
020040 
020046 
020050 
020054 
020062 
020064 
020070 
020076 
020100 
020104 
020112 
020114 
020120 
020126 
020130 
020134 
020142 
020144 
0201 50 
020156 
020160 
020166 
020170 
0?01 7? 
020200 
02CJ02 
020206 
020212 



104414 
000137 



104414 
104401 
104401 
104401 
104401 
000177 



032760 
001402 
000137 
032760 
001402 
000137 
032760 
001002 
000137 
032760 
001402 
0001 37 
032760 
001402 
000137 
032760 
001402 
000137 
052760 
001402 
000137 
032760 
001402 
000137 
032760 
001402 
000137 
032760 
001402 
000137 
032760 
001402 
000137 
032760 
001405 
032760 
001401 
000207 
032760 
001402 
000157 
005760 
100002 



037263 
017720 



037306 
001207 
043243 
001207 
043106 
161434 



000030 

020530 
040000 

020310 
040000 

020500 
000400 

020340 
000020 

020360 
000200 

020370 

02c )00 

020410 
000010 

020430 
000040 

020520 
002000 

020440 
004000 

020450 
001000 

002000 



DISPLY ,EM14 
JMP DUMP2 
;P0RT REQUEST TIMEOUT ERROR 



PRTIM: 
DUMP2: 



DISPLV 

TYPE 

TYPE 

TYPE 

TYPE 

JMP 



.EMI 5 

.SCRLF 

.XFATL 

.SCRLF 

.HALTX 

aRSTART 



CR-LF 
CR-LF 

JUMP TO RESTART 



.•PROCESS ORDER COMPLETION WITH 'ERROR' t 'DONE' BITS SET 



000016 

000030 

000032 

000034 

000034 

000034 

000034 

000034 

000034 

000034 

000034 

000034 
000032 



DONE: 



1$: 



010000 000034 21. 

020420 
000034 



BIT 
BEQ 
JMP 
BIT 
BEQ 
JMP 
BIT 
BNE 
JMP 
BIT 
BEQ 
JMP 
BIT 
BEQ 
JMP 
BIT 
BEO 
JMP 
BIT 
BEQ 
JMP 
BIT 
BEQ 
JMP 
BIT 
BEQ 
JMP 
BIT 
BEQ 
JMP 
BIT 
BEQ 
JMP 
BIT 
BEQ 
BIT 
BEO 
RTS 
BIT 
BEO 
JMP 
TST 
BPL 



*8IT04!B1T03. STATUS (RO) .'UNSAFE OCCURRED 



>6 
UNSAF 

*8IT14,SRMCS2(R0) 
.♦6 
WCKER 

*8IT14.SRMDS(R0) 
1S 

TRFER 

«8I TOS.SRMERKRO) 
.+6 

HCRCER 

/l'BIT04,SRnER1(R0) 
.♦6 
CKFMT 

/»BIT07.SRMER1(R0) 
.♦6 

ckhce 

/vbit13.srmer1(r0) 

.♦6 

OPIER 

«8ir3,SRMER1(R0) 
.♦6 
PARER 

«BIT5,SRMER1(R0) 
.♦6 

WCFER 

#eiT10.SRMERl(R0) 
.♦6 
lAEER 

*8IT11.SRMER1(R0) 
.*6 
WLEER 

*8IT9.$RMER1 (RO) 
2S 

IITIO.SRMDSCRO) 

a 

PC 

*8IT12.$RMER1(R0) 
.♦6 
DTEER 
SRMERl (RO) 
.♦6 



8R IF NOT 
REPORT UNSAFE 

;IS 'WCE' SET ? 
BRANCH IF NOT SET 
WRITE CHECK ERROR 
.•CHECK 'ERR' 
8R IF SET 
PROCESS 'TRE* 
'HCRC SET? 
8R IF NOT 
PROCESS 'HCRC 

;'FMT' SET? 
BR IF NOT SET 
CHECK FORMAT ERROR 

.••HCE' SET? 
8R IF NOT SET 
CHECK 'HCE' ERROR 

.••OPI* SET? 
8R IF NOT SET 
REPORT 'OPI* 
.••PAR' SET? 
BR IF NOT SET 
REPORT 'PAR* 
;'WCF' SET? 
8R IF NOT SET 
REPORT 'WCF' 
.••lAE' SET? 
BR IF NOT SET 
REPORT 'lAE' 
.••WLE' SET? 
BR IF NOT SET 
REPORT 'WLE' 
;'AOE' SET? 
BR IF NOT SET 
.••LSI' SET? 
BR IF NOT SET 
•AOE' t 'LST* SET. EXIT 

;SEE IF 'DTE* SET 
BR IF NOT 

REPORT 'DTE' ERROR 
SEE IF 'DCK' SET 
BR IF NOT 



0202 U 


000157 


020300 






JMP 


DCKER 


020220 


032760 


C60000 


000062 




BIT 


*8]T14! 


020226 


001006 








BNc 
BIT 


3$ 


020250 


032760 


100000 


000062 




*8IT15, 


020236 


001004 








BNE 


4S 


020240 


000137 


020350 






JMP 


DRVER 


020244 


000137 


020510 
001207 




31: 


JW 


SKIER 


020250 


104401 




4S: 


TYPE 


.$CRLF 


020254 


104401 


042207 






TYPE 


.ME SGI 1 


020260 


^04007 








FMT 


7 


020262 


104010 








EMT 


10 


020264 


104011 
104012 








EMT 


11 


020266 








EMT 


12 


020270 


104401 


045106 






TYPE 


,HALTX 


020274 


000177 


.61100 






JMP 


aRSTART 



020300 
C2030O 
020304 



020310 
020310 
020316 
020320 
020324 
020330 
020334 



020340 
020340 
020344 



020350 
020350 
020354 



020360 
020360 
020364 



020370 
020370 
020374 



104414 037363 
0001 37 020540 



032760 100000 000034 
001004 

104414 037467 

000137 020540 

104414 037414 

000137 020540 



104414 037342 
000137 020540 



DCKER: 



r/RMTBO RM05/5/2 DR CMPT TST MACRO V04.00 
OET VALUE FOR SOFTWARE SWITCH REGISTER 

1770 
1771 
1772 
1775 
1774 
1775 
1776 
1777 
1778 
1/79 
1780 
1 731 
1782 
1785 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
V93 
1794 
1795 
1/96 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
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.•PROCESS 'DCK' 
1ER2(R0) ;'SKr OR *C 

;8R IF IT IS 
)) ;8AD SPOT ? 

.•BRANCH IF SO 

; RE PORT ERROR 

.•REPORT DRIVE ERROR 

; CR-LF 



.-JUMP TO RESTART 



.•PROCESS DATA CDCK*) CHECK ERROR 



DISPLY 
JMP 



.EM21 
DUMP 



.•WRITE CHECK ERROR PROCESSING 
WCKER: 

BIT *8IT15.$RMER1'R0) 

BNE IS 

DISPLY ,EM23 

JMP DUMP 

DISPLY .EM22 

JMP DUMP 



;DCK BIT SET ? 
.BRANCH IF SET 



1$: 



.•REPORT 'HCRC ERROR 
HCRCER: 



DISPLY 
JMP 



,EM20 
DUMP 



104414 
0001 37 



037757 
020540 



; REPORT DRIVE ERROR 

DRVER: 



DISPLY 
JMP 



,EM30 
DUMP 



104414 037546 
000137 020540 



.•PROCESS FORMAT CFER') ERi^OR 
CKFMT; 



DISPLY 
JMP 



,EM24 
DUMP 



104414 
000137 



037614 
020540 



.•PROCESS HEADER COMPARE CHCE") ERROR 
CKHCE ; 

DISPLY .EM25 
JMP DUMP 
.-POSSIBLE POSITIONING ERROR 



CZRMT80 RMOS/3/2 DR CMPT TST 
GET VALUE FOR SOFTWARE SWITCH 



1827 

1828 

182« 

1830 

1831 

1832 

1833 

1834 

1335 

1836 

1837 

1838 

1839 

18A0 

18A1 

18A2 

18A3 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

1881 

1882 

1883 



020400 
020404 



020410 
020410 
020414 



020420 
020420 
020424 



020430 
020430 
020434 



020440 
020440 
020444 



020450 
020450 
020454 



020460 
020460 
C20464 



020470 
020474 



020500 
020500 
020504 



020510 
020510 
020514 



1044''4 041120 
0001 37 020540 



MACRO V04.00 
REGISTER 

POSER: 



4-APR-81 18: 12: IS 



M 

PAGE 



6 

9-54 



SEO 007/ 



104414 
000137 



104414 
000137 



104414 
000137 



04001 1 
020540 



040054 
020540 



040107 
020540 



104414 040226 
000137 020540 



104414 040264 
000137 020540 



104414 037675 
000137 020540 



104414 037722 
000137 020540 



104414 040377 
000137 020540 



104414 041062 
000137 020540 



DISPLY ,EM51 
JMP DUMP 



.•REPORT 'OPr ERROR 
OPIER: 

DISPLY .EM31 
JMP DUMP 

.•REPORT 'DTE' ERROR 

DTEER: 

DISPLY .EM32 
JMP DUMP 

.•REPORT 'PAR' ERROR 

PARER : 

DISPLY .EM33 
JMP DUMP 

.REPORT 'lAE' ERROR 

lAEER: 

DISPLY .EM35 
JMP DLWP 

.-REPORT WLE ERROR 

WLEER: 

DISPLY .EM36 

JMP Durv> 

.•REPORT FORMAT ERROR 
FMTER: 

DISPLY .EM26 
JMP DUMP 

.•REPORT HEADER COMPARE ERROR 

HCEER: DISPLY ,EM27 
JMP DUMP 

.-PROCESS CONTROL/INTERFACE TRANSFER ERROR 

TRFER: 

DISPLY .EM40 
JMP DUMP 

.-PROCESS 'SKI' OR 'OCYL* 

SKIER: 

DISPLY ,EM50 

JMP DUMP 

.•REPORT WRIlE CLOCK FAILURE 



CZRMTBO RM05/3/2 DR CMPT TST MACRO V04.00 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
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SEO 0078 



1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
189A 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

190A 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

19K 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1955 

1936 

1957 

1958 

1959 



020520 
020520 
020524 



020530 
020530 
020534 

020540 
020540 
020542 
020544 
020546 

020550 
020554 
020562 
C20570 



020572 
020600 
020602 
020610 
020612 
020616 
020620 
020624 
02062O 
020632 
020636 



020640 
020644 
020646 
020652 
020654 
020656 
020662 
020666 
020670 
020674 
020700 



020702 
020706 
0207)2 
0207)6 
020722 
020726 



104414 
0001 37 



104414 
000137 



104007 
104010 
104011 
104012 

004737 
012737 
012737 
000207 



032760 
001012 
032760 
001006 
005760 
001003 
005760 
001404 
104414 
000137 
000207 



005760 
001011 
016046 
005416 
006316 
066016 
022660 
001404 
104414 
000137 
000207 



104401 
104401 
104401 
016001 
016046 
005416 







WCFER: 




.EM34 




C40164 






DISPLY 




020540 






JMP 


DUMP 








.•REPORT 


DRIVE UNSAFE ERROR 








UNSAF : 




.EM60 




041163 






DISPLr 




020540 






JMP 


DUMP 

• 








DUMP: 














EMT 


7 










EMT 


10 










EMT 


11 










EMT 


12 




030334 






JSR 


PC.RMINIT .'CLEAR THE SUB-SrSTEM 


1 77777 


030264 




MOV 


<f-1.SAVEFG 




-[77777 


030266 




MOV 


*-1,SEEKFG 










RTS 


PC 








;CKECK 


ERROR BITS IN THE RH/RM REGISTERS 




060000 


000020 


CKERR: 


BIT 


#60000, SRMCSHRO) 


SEE IF 'TRE' OR 'MCPE 






BNE 


1$ 


VES 


177400 


000030 




BIT 


#1 77400. $RMCS2(R0) 


•ERROR BITS IN CS2 / 








BNE 


1$ 


■YES 


000034 






TST 


IRMERl (RO) 


■ANY ERROR IN ER1 






BNE 


1$ 


■YES 


000062 






TST 


$RMER2(R0) 


;ANY ERROR IN ER2 






BEQ 


2$ .-BRANCH 


IF NO ERROR 


040640 




IS:' 


DISPLV 


.EM44 




020540 






JMP 


DUMP ;TVPE AL^ REGISTERS 






2$: 


RTS 


PC 





000022 
000004 



000006 
000024 

040446 
020540 



001207 
042764 
001207 
000024 
000004 



;rHECK BUS ADDRESS REGISTER AND WORD COUNT REGISTER 



CK8US: TST $RMWC(R0> 

BNE IS 

MOV SWRDM(R0),-(SP) 

NEG (SP) 

ASL (SP) 

ADD S8UF (RO).(SP) 

CMP (SP)*.SRMBA(R0) 

BEQ 2$ 
1$: DISPLY .EM41 

JMP DUMP 

2S: RTS PC 



WORD COUNT = 0 
NO 

WORD LENGTH 

GET THE POSITIVE Nl^BER OF WORD COUNT 
BYTE COUNT 



;TYPE ALL REGISTERS 



.ROUTINE TO DISPLA>C THE SECTOR WHICH GAVE THE HARD ERROR 

PRT8AD: TYPE .SCRLF ; CR-LF 

TYPE .ME SGI 9 

TYPE .SCRLF ; CR-LF 

MOV SRM8A(R0).R1 .PUT THE END ADDRESS INTO Rl 

MOV |WRDM(R0),-(SP) ;FIND THE BEGIft^lNG OF THE SECTOR 

NEG (SP) ;G£T THE POSITIVE NUMBER OF WORD CO<JNT 



''ZRMTBO fmOS/l/2 DP CMPT TST "tACTO VW.OO 
OET VALUe FOR SOfTwA«E SWITCH ''EGISTER 
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SEO X 'V 





020730 


0660^6 


000022 






ADD 


tRMUC(ftO).(SP) 


mi 


020734 


005046 








CLR 


-CSP) 


1942 


020736 


012746 


000400 






MOV 


#256.. -(SP) ; 
PC.LINKDV 


1943 


020742 


004737 


021764 






JSR 


1944 


020746 


005716 








TST 


(SP) 


1945 


020750 


001403 








BEQ 


1$ 


1946 


020752 


006316 








ASL 


(SP) 


1947 


020754 


161601 








SUB 


(SP),R1 


1948 


020756 


000402 








BR 


2S 


1949 


020760 


162701 


001000 




IS: 


SUB 


#1000.P1 


1950 


020764 


062706 


000004 




2$: 


ADD 


#4.SP 


1951 


0207^0 


012702 


000007 




3$: 


MOV 


#7,R2 


1952 


020774 


020160 


000024 




4$: 


CMP 


R1.$RMBA(R0) 


1953 


021000 


001415 








BEQ 


5$ 


1954 


021002 


104414 


042752 






DISPLY 


.8LNKS1 


1955 


021006 


012146 








MOV 


(R1)*,-(SP) 
PC.LINOCT 


1956 


021010 


004737 


021162 






JSR 


1957 


021014 


02271 1 


Mini 






CMP 


#-1.(Rl) 


1958 


021020 


001405 








BEO 


5$ 


1959 


021022 


005302 








PEC 


R2 


1960 


021024 


001363 








BNE 


4$ 


1961 


021026 


104414 


001207 






DISPLY 


.SCRLF 


1962 


021032 


000756 








BR 


3S 


1%3 
^964 


021034 


104414 


001207 




5$: 


DISPLY 


.SCRLF 


021040 


000207 






6S: 


RTS 


PC 


1965 
















1966 
















1967 
















1968 


021042 


104412 






FILBUr: 


5AVREG 


$8UF (RO) .Rl 


1969 


021044 


016001 


000006 






MOV 


1970 


021050 


016002 


000004 






MOV 


$URDM(R0),R2 


1971 


021054 


005402 








NEG 


R2 


1972 


021056 


012705 


005262 






MOV 


#STNDAT.R5 


1973 


021062 


012703 


000020 






MOV 


#20, R3 


1974 


021066 


012521 






3$: 


MOV 


(R5)*.(R1)+ 


1975 


021070 


005302 








DEC 


R2 


1976 


021072 


003407 








BLE 


4$ 


1977 


021074 


005303 








DEC 


R3 


1978 


021076 


001373 








BNE 


3$ 


1979 


021100 


012703 


000020 






MOV 


#20. R3 


1980 


021104 


012705 


005262 






MOV 


#STNDAT.R5 


1981 


021110 


000766 








BR 


3$ 


1982 


021112 


104413 






4$: 


RESREG 




1983 


021114 


000207 








RTS 


PC 


1984 
















1985 
















1986 










.S8TTL 


ERROR 


MESSAGE GENERAT 


1987 
















1988 










.•PRINT 


LINE 1 
1:SS' 


OF ERROR MESSAGI 


1989 










;'HH:»T 




1990 














#swio.aswR 


1991 


021116 


032777 


002000 


160030 


LINEI: 


BIT 


1992 


021124 


001402 








BEQ 


IS 


1993 


021126 


104401 


001202 






TYPE 


,$8ELL 


1994 


021132 


032777 


020000 


160014 


1$: 


BIT 


#SUl3.aSWR 


1995 


021140 


001403 








BEO 


2$ 


1996 


021142 


104414 


001207 






DISPLY 


.SCRLF 



.•SUBTRACT THE WORDS NOT TRANSFERED 
;MAKE THE UPPER DIVIDEND 0 
;DIVDE THE WORDS transFERED BY THE SECTOR SIZE 

;DIVIDE 

;REMANDER = 0 ? 

;8R IF IT IS - COMPLETE SECTOR TRANSFERED 
:CONVERT THE RESIDUAL SEC10R SI2E INTO BYTE COUNT 
; SUBTRACT IT FROM THE END ADDRESS 
;FINISH THE SIZING 

;SUBTJWCT FULL SECTOR SIZE FROM END ADOR 
^RESTORE THE STACK POINTER 
;R2 CONTAINS THE WORDS/LINE COUNT 
.PRINTED ALL THE SECTOR ? 
;BR IF ALL PRINTED 
TYPE 1 BLANK 

;PUT THE DATA ON THE STACK 
;TyPE THE DATA 
;END OF FILE ? 
;8RANCH IF SO 

; DECREMENT THE HORIZONTAL COUNT 
;8R IF NOT AT THE END OF THE LINE 
; CR-LF 

^RESTORE THE WORDS/LINE COUNT 
; PRINT WHAT REMAINS IN THE BUFFER 
;RETLIRN 



SAVE THE REGISTERS 
BUFFER ADDRESS 
POSITIVE WORD COUNT 



PATTERN ADDRESS 
PATTERN COUNT 

MOVE THE PATTERN INTO THE BUFFER 

DECREMENT THE WORD COUNT 

BR IF DONE (WORD COUNT = 0) 

DECREMENT THE PATTERN COUNT 

BR IF MORE PATTERN 

RESTORE PATTERN COUNT 

RESTORE THE ADDRESS 

CONTINUE DISTRIBUTING THE PATTERN 

RESTORE THE REGISTERS 

RETURN 



SWITCH 10 SET ? 
BR IF NOT 
RING THE BELL 
INHIBIT TYPEOUT ? 
BR IF NOT 
CR-LF 



CZRHTBO WlOS/3/2 OR ^f¥>^ TST MACRO V04.0C 
ERROR MESSAGE GENERATION ROUTINES 
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1997 

1998 

1999 

<?000 

2001 

2002 

2003 

2004 

200'; 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

20U 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2055 



021146 
021150 
021 1 54 
021160 



021162 
021166 
021172 
021 1 76 
021204 
021206 
021210 
021212 



021214 
021220 
021224 
021230 
021232 



021234 
021 242 
021250 
021256 
021262 
021266 
021272 
021276 
021302 
021306 
021312 
021320 
021326 
021330 
021334 
021342 
021346 
021352 



000404 

004737 C2U30 
104414 042752 
000207 



21: 
3S: 



BR 3S 

JSR PC.STIME 

DISPLV .8LNKS1 

RTS PC 



OCTAL TYPE OUT ROUTINE 
CALL : 

MOV NUM.-(SP) 
JSR PC.LINOCT 
RETURN 



016646 000002 

004737 022724 

012637 021206 

062737 000005 021206 

104414 

000000 

012616 

000207 



LINOCT. 



1$: 



MOV 
JSR 
MOV 
ADD 

DISPLY 
.WORD 
MOV 
RTS 



2(SP).-(SP) 
DC,SS820 
(SP) + J$ 
*5.,1$ 



(SP)+.(SP) 
PC 



EXIT 

TYPE THE TIME 
TYPE 1 BLANK 

RETURN I TYPE DESCRIPTION 



;PUT THE NUMBER ON THE STACK 



PUT NUMBER IN PROPER LOCATION ON STACK 

CONVERT THE NUMBER TO OCTAL 

GET THE ADDRESS Of THE ASCII STRiNG 

ADDRESS THE LAST 6 ASCII DIGITS 

TYPE IT 

ADDRESS 

CORRECT THE STAC< 
RETURN 



ROUTINE TO CONVERT THE INPUT NUMBER TO DECIMAL AND YPE IT WITH 

LEADING ZERO SUPRESSION 

CALL: 

MOV NUM.-(SP) ;PUT THE NUTBEH ON THE STACK 

JSR PCLINDEC 

RETURN 



016646 000002 
004737 022674 
004737 022300 
012616 
000207 



LINDEC: MOV 
JSR 
JSR 
MOV 
RTS 



2(SP).-(SP) 

PC.$S82D 

PC.SSUPRS 

(SP)*,(SP) 

PC 



SET UP STACK FOR CONVERT 

CONVERT IT TO DECIMAL 

TYPE IT (WITH LEADING ZEROS SUPRESSED) 

RESTORE STACK POINTER 



.S8TTL 6ENFRAL SUPPORT SUBROUTINES 



.'ROUTINE TO CHECK FOR KWll-L OR KWll-P CLO^ifS 



012737 


U7777 


001316 


CKCLK: 


MOV 


#-1.CLKFLG 


012737 


A77777 


001314 




MOV 


#-1 ,PCLOCK 


012737 


021330 


000004 




MOV 


/»CKCLK1,ERRVEC ; 


005037 


000006 






CLR 


a#ERRVEC*2 


005777 


160014 






TST 


aSLKCSR 


005037 


001316 






CLR 


CLKFLG 


005037 


001314 






CLR 


PCLOCK 


013701 


001306 






MOV 


SLPVEC.RI 


012721 


021526 






MOV 


#CL0CK,(R1)+ 


012711 


000300 






MOV 


#300, (R1) 


012777 


174575 


157764 




MOV 


#-1667.,a$LKCS8 ; 


012777 


000131 


157754 




MOV 


#l31,aSLKCSR 


000434 








BR 


CKCLK3 


062706 


000004 




CKCLKI : 


ADD 


#4.SP 


012737 


021376 


000004 




MOV 


#CKCLK2,a#ERRVEC 


005777 


157742 






TST 


a$LKS ; 


005037 


001316 






CLR 


CLKFLG 


013701 


001312 






MOV 


SLLVEC.Rl ; 



CLEAR CLOCK AVAILABILITY FLAG 

CLEAR KW11-P CLOCK AVAILABILITY FLAG 

SET UP VECTOR FOR CLOCK CHECK 

:NEU psy 
CHECK FOR KWll-P 
SET CLOCK AVAILABILITY FLAG 
SET KU11-P CLOCK FLAG 
KU11-P VECTOR ADDRESS 
SET UP KU11-P VECTOR 
PSU - PRI 6 

LOAD COUNTER BUFFER WITH 16.67 
SET CLOCK - CNT UP. lOUS. CONT INT 

RESTORE THE STACK POINTER 

.•CHANGE ERROR VECTOR TO CHECK FOR KWll-L 
LOOK FOR (CWll-L 
SET CLOCK FLAG 
KWll-L VECTOR ADDRESS 



'7RMTB0 PW05/^/a DR CMPT TST 

jEneral support subroutines 



HACRO V04.00 
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SEO 0081 



?0S4 

2055 

2056 

2057 

2058 

2059 

2060 

2061 

2062 

2063 

206A 

20o5 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 

2081 

2082 

2083 

2084 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 



021356 
021362 
C21366 
021374 
021 376 
021402 
021406 
021412 
021414 

021420 
021426 



012721 


021526 






MOV 


#CL0CK, (R1 )♦ 


012711 


000300 






MOV 


#500, (R1 ) 


012777 


000100 


157714 




MOV 


#100,S$LKS 


000411 








BR 


CKCLK3 


062706 


^\ ^\ ^\ M 

000004 




CKCLK2: 


ADD 


#4,SP 




f\l 7 0 C 7 






T VPC 
1 Trt 




005737 


000042 






TST 


42 


001400 








BEO 


1J 


000177 


157760 




1$: 


JMP 


aRSTART 


012737 


000006 


000004 


C<CLK3: 


MOV 


*6.a*ERRVEC 


000207 








RTS 


PC 



SET UP KW11-L VECTOR 

PSW - PRI 6 

SET KWll-L INTERRUPT 

RESTORE THE S'"ACK POINTER 

'P OR L CLOCK MUST BE ON SYSTEM' 

UNDER MONITOR CONTROL ? 

BR IF NOT 

JUMP TO RESTART 

.•RESTORE THE ERROR VECTOR 



.•ROUTINE TO TYPE THE TIME 



021430 


005737 


001316 


$TIME: 


TST 


CLKFLG 


CLOCK ON THE SYSTEM ? 


021434 


001033 






BNE 


1$ 


8R IF NOT 


021436 


104401 


001207 




TYPE 


,$CRLF 


CR-LF 

PUT 'HOURS' ON THE STACK 


02^442 


013746 


001 344 




MOV 


HOUR.-(SP) 


021446 


004737 


022674 




JSR 


PC.$S82D 


■CONVERT TO DECIMAL 


021452 


004537 


022210 




JSR 


RS.REPLZ 


•TYPE IT 


021456 


000002 






.WORD 


2 


■TYPE 2 DIGITS 


021460 


104401 


042754 




TYPE 


.COLON 


• ' : ' 


021464 


013746 


001346 




MOV 


MINUTE. -(SP) 


:PUT 'MINUTES' ON THE STACK 


021470 


004737 


022674 




JSR 


PC. $5820 


■CONVERT TO DECIMAL 


021474 


004537 


02^21 C 




JSR 


R5,REPLZ 


;TYPE IT 


021500 


000002 






.WORD 


2 


;TYPE 2 DIGiTS 
. • . • 


021502 


104401 


042754 




TYPE 


.COLON 


021506 


013746 


001350 




MOV 


SECOND, -(SP) 


•PUT SECONDS ON THE STACK 


021512 


004737 


022674 




JSR 


PC,$SB2D 


; CONVERT TO DECIMAL 


021516 


004537 


022210 




JSR 


RS.REPLZ 


.•TYPE IT 


021522 


000002 






.WORD 


2 


;TYPE 2 DIGITS 


021524 


000207 




1$: 


RTS 


PC 













; CLOCK 


HANDLER 


ROUTINE 






021526 


005337 


001352 




CLOCK: 


DEC 


SIXTEE 


•INCREMENT THE 1/60 


SECOND COUNTER 


021532 


001033 








BNE 


1$ 


■8R IF A SECOND NOT 


COUNTED 


021534 


013737 


001320 


001352 




FWV 


HZ. SIXTEE 


■RESTORE THE VALUE 




021542 


005237 


001350 






INC 


SECOND 


•COUNT THE SECOND 




021546 


022737 


000074 


001350 




.MP 


#60.. SECOND 


■AT MAXIMLW ? 




021554 


001022 








BNE 


1$ 


■BR IF NOT 




021556 


005037 


001350 






CLR 


SECOND 


•CLEAR THE SECOND'S 


COUNTER 


021562 


005237 


001346 






INC 


MINUTE 


•COUNT THE MINUTE 




021566 


022737 


000074 


001 346 




CMP 


#60.. MINUTE 


•AT MAXIMUM ? 




021574 


001012 








BNE 


1$ 


•8R IF NOT 




021576 


005037 


001346 






CLR 


MINUTE 


•CLEAR THE MINUTE'S 


COUNTER 


021602 


005237 


001344 






INC 


HOUR 


•COUNT THE HOURS 




021606 


022737 


001747 


001344 




CMP 


#999. .HOUR 


;AT ftAXIMLW 




021614 


103002 








BHIS 


U 


•BR IF NOT 




021616 


005037 


001344 






CLR 


HOUR 


•CLEAR THE HOURS 




021622 


012746 


000021 




1$: 


MOV 


#17. .-(SP) 


;17 MS ON THE STACK 




021626 


004737 


034344 






JSR 


PC.RMTMR 


•DRIVER TIMER ROUTINE 


021632 


000002 






2$: 


RTI 









; COMMAND DECODE ROUTINE 



CZRMTBO RM05/5/2 DR CMPT TST 
GENERAL SUPPORT SUBROUTINES 



2111 
2112 
2113 
21U 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
21 2A 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2153 
21 3A 
2155 
2136 
2137 
2138 
2159 
2U0 
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021654 
021636 
021644 
021650 
021654 
021660 
021664 
021666 
021670 
021672 
021674 
021700 
021704 
021712 
021716 



104412 
012737 
005037 
004737 
005777 
005737 
001002 
000240 
000240 
104413 
062716 
005777 
052777 
005037 
000207 



2141 
2142 
2143 
2144 
2145 
2146 
2147 



2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 



021 720 
021720 
021 722 
021 724 
021726 
021730 
021 732 
021756 
021 742 
021 744 
021750 
021 752 
021 754 
021 756 
021760 
021762 

021764 
021766 
021772 
021774 
022000 
022004 
022006 
022010 
022014 
022020 
0P2024 



010146 
010346 
010446 
010546 
010004 
062704 
012703 
005024 
162705 
001574 
012605 
012604 
012603 
012601 
000207 

104412 
016605 
005004 
016602 
016603 
005000 
005001 
004757 
010166 
010566 
104415 



CALL 



MOV 



*-l.CFLAG 



JSR PC.KSR 

RETURN] 

RETURN2 



000200 
001556 
021450 
157502 
001556 



000002 
157256 
OCOlOO 
177776 



177776 



KSR: 



000002 
000020 

000002 



000026 

000030 
000052 



022032 
000030 
000052 



7$: 



157246 



SAVREG 

MOV 

CLR 

JSR 

TST 

TST 

BNE 

NOP 

NOP 

RESREG 

ADD 

TST 

BIS 

CLP 

RTS 



#PR4.PS 
CFwAG 
PC.STIME 
iSTKS 

CFLAG 
7$ 



*2,(SP) 
aSTKB 

*8IT06.a$TKS 

PS 
PC 



ROUTINE TO CLEAR THE DPS FOR 
CALL: 



CLRDP8: 



1$: 





#nPR DO 


JSR 


PC. CLRDPB 


RETURN 




MOV 


RI.-(SP) 


MOV 


R5,-{SP) 


MOV 


R4.-(SP) 


MOV 


R5.-(SP> 


MOV 


R0.R4 


ADD 


#2,R4 


MOV 


nEMTAB-2,R3 


CLR 


(R4) + 


SUB 


#2.R3 


BNE 


IS 


MOV 


(SP)+,R5 


MOV 


{SP)+.R4 


MOV 


(SP)*.R3 


MOV 


(SP)+,R1 


RTS 


PC 


SAVREG 




MOV 


26(SP),R5 


CLR 


R4 


MOV 


30{SP),R2 


MOV 


32(SP).R3 


CLR 


RO 


CLR 


Rl 


JSR 


PCM.DPID 


MOV 


R1,50(SP) 


MOV 


R3,52{SP) 


RESREG 





.-■CFLAG' IS NORMALLY SET BY ThC TTr SERVICE 
.•ROUTINE iN INTERRUPT MODE 

; SYSTEM BUSY RETURN 

;RETJRN AFTER KEYBOARl; SERVICED 

.-SAVE THE REGISTERS 
;SET PRIORITY TO 4 
.■CLEAR THE 'CONTROL C FLAG 
;TYPE THE TIME 

.■CLEAR ANY GARBAGE IN THE TTV BUFFER 
; CHECK THE CONTROL C FLAG 
.-EXIT IF 'CONTROL C ENTERED 
.•DUMP CODING FOR LATER USE 5/8/77 

■RESTORE RO R5 

; INCREMENT THE RETURN ADDRESS 

.■CLEAR THE TTY BUFFER 

;SET TTY INTERRUPT ENABLE 

;SET PRIORITY BACK TO ZERO 

.■RETURN 

THE ASSIGNED DRIVE 

:DPB ADDRESS 



;;PUSH Rl ON STACK 

;;PUSH R3 ON STACK 

;;PUSH R4 ON STACK 

;;PUSH R5 ON STACK 

;GET THE DPS ADDRESS 

.•ADDRESS OF FIRST LOCN TO BE CLEARED 

.•NUMBER OF LOCATIONS TO CLEAR 

.-CLEAR THE STORAGE LOCATION 

.•DECREMENT THE BYTE COUNT 

.LOOPING BACK 

;;POP STACK INTO R5 

;;POP STACK INTO R4 

;;POP STACK INTO R3 

;;POP STACK INTO Rl 

.•RETURN 

.•STORE RO - R5 
.•DIVISOR 

.-OTHER DIVISOR WORD 

; UPPER DIVIDEND WORD 

.•LOWER DIVIDEND WORD 

.■CLEAR OTHER DIVIDEND REGISTERS 

;G0 TO THE DIVIDE ROUTINE 
.■REMAINDER ON THE STACK 
.•QUOTIENT ON THE STACK 
.•RESTORE RO - R5 



CZRMTBO RM05/3/2 OR CMPT TST 
GENERAL SUPPORT SUBROUTINES 
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2161 

3163 
2164 
2165 
2^66 
2167 
2168 
2169 
2170 
2171 
2172 
2173 

2^ 74 

2175 
2V6 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 

2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
22C9 
2210 
2211 
22^2 
2213 
22U 
2215 
2216 
2217 



022026 
022030 



022052 
022036 
022040 
022042 
022046 
022050 
022054 
022056 
022060 
C22064 
022066 
022070 
022072 
022074 
022076 
022100 
022102 
022104 
022106 
022112 
022114 
022116 
022122 
022124 
022126 
022130 
022132 
022134 
022136 
022140 
022 V.2 
022144 
022150 
022152 
022154 
022156 
022160 
022162 
022164 
022166 
022^70 
022174 
022176 
022200 
022204 
022206 



0126^6 
000207 



012746 
010446 
010546 
005466 
005416 
005666 
061601 
005500 
066600 
103445 
005046 
006103 
006102 
006101 
006100 
005716 
001410 
005016 
066601 
005500 
005516 
066600 
000404 
060501 
005500 
005516 
060400 
005516 
005716 
001401 
005203 
005366 
003347 
0060C3 
103404 
060501 
005500 
060400 
000241 
006103 
062706 
000242 
000207 
062706 
000262 
000207 



MOV 
RTS 



(SP)*.(SP) 
PC 



.-MOVE RETURN UP THE STAfK 



DIVISION UTILITY SUBROUTINE 

R0-R1-R2-R3=DIVIDEND 

R4-R5=DIVIS0R 

R0-R1=REMAINDER AFTER DIVISION 
R2-R3=QUCTIENr AFTER DIVISION 
ENTER WITH JSR PCM.DPID 



000040 

000002 
000002 

000002 



000002 
000004 



000006 



000010 
000006 



V DP ID- 


MOV 


#40 -(SP) 




MOV 


R4.-(SP) 




MOV 


R5^-(SP) 




NEG 


2(SP) 




NEG 


9SP 




SBC 


2(SP) 




ADD 


SSP Rl 




ADC 


RO 




ADD 


2(SP) .RO 




BCS 


M.DP50 




CLR 


-(SP) 


M.DP40: 


ROL 


R3 




ROL 


R2 




ROL 


Rl 




ROL 


RO 




TST 


mSP 




BEQ 


M.DP41 




CLR 


SSP 




ADD 


2(SP) -Rl 




ADC 


RO 




ADC 


asp 

4(SP) .R0;<- 




ADD 




BR 


M.DP42 


ri.DP41 : 


ADD 


R5.R1 




ADC 


RO 




ADC 


asp 




ADD 


R4.R0 ;<- 


W,DP42: 


ADC 


asp 




TST 


asp 




BEQ 


.♦4 ;-> 




INC 


R3 




DEC 


6(SP) ;<- 




8GT 


M.DP40 




ROR 


R3 




BCS 


M.DP44 




ADD 


R5.R1 




ADC 


RO 




ADD 


R4.R0 




CLC 




M.DP44: 


ROL 


R3 




ADO 


/riO.SP 




CLV 






RTS 


PC 


M.DP50: 


ADO 
SEV 


#6.SP 




RTS 


PC 



COUNTER FOR DIVISION CYCLES 
HIGH ORDER 

LOU ORDER DIVISOR TO THE STACK 

FORM NEGATIVE 

VERSION OF THE DIVISOR 



.•PERFORM THE INITIAL SUBTRACTION 

;JF CARRY thEN OVERFLOW HAS OCCURRED 
.-THIS IS A LONGER LASTING CARRY BIT 



TEST "CARRY" INDICATOR 

IF NO "CARRY" THEN ADO EI SE SUBTRACT 

CLEAR UP FOR NEXT TIME 

;ADD -(DIVISOR^ 
;SET "CARRY" 



.-ADD ♦(DIVISOR) 
;SET "CARRY" 

SET "CARRY" 

TEST THE UPDATE INDICATOR 
IF ZERO FC«GET IT 
NO CARRY POSSIBLE HERE 
DECREMENT COUNTER 
BRANCH IF MORE TO DO 



.•ADJUST STACK 4 WORDS 





RMOS/5/2 DR CMP1 


TST 


VJC nit ''^l. 


Ci iDDI'^DT 


SUBROUTINES 


















CCCv 








etc • 








cccc 








CCCJ 
















CCCJ 


\jccc 1 U 


010046 




c ccO 


\jccc 1 1: 


012746 


000012 


ccc ' 


no J51 A 

Uccc lo 


162516 




CCCO 


noP55n 


016600 


000006 


ccci' 


r\3PP?A 


122710 


000060 


CC Jv 


nP557n 


001004 






n5P575 


112710 


000040 


CC ^c 


n5P?7A 


005200 




CC J J 


nP53z.n 


000771 




CC J*« 




105710 




PP^S 

CC J J 




001003 




PP Vi 

CC JO 


UccchO 


005300 




CCjf 


Occr jU 


112710 


0C0060 


PP^R 

CC JO 




016637 


000006 


PP^9 


UcccOc 


062637 


022270 


c c**v./ 


npppAA 


104401 




pp^l 


nppP70 

\JCCC 1 V 


000000 






V07777 
\)cccf c 


012600 






nPPP7^ 

Uccc r *♦ 


012616 




77UU 


n?pp7A 

wccc ' O 


000205 




PP45 
































pp^y 








PP SO 
CC JV 

PP** 








CC 

CC JC 


Ucc JwU 


010046 




PPS^ 

CC J J 


Ucc jUc 


016600 


000004 


PPS4 

CC J*^ 


Ucc jUD 


105710 




PPSS 

CC J J 


Uc c J 1 v 


001403 




PPSA 

CC JO 


npp7i p 

Ucc J 1 c 


1 22720 


000060 


PPS7 

CC J > 


Ucc J lO 


001773 




PP58 


Ucc JcU 


005300 




PPS9 


\JCCjCC 


010037 


022330 


?'>f£i 

C »_ DV 


nppxPA 

Ucc JcO 


104414 




CC U 1 


Ucc J JU 


UUUvwV 




ccUc 


022332 


012600 




2263 


02235A 


012616 




226^ 


VCC JJO 


000207 




PPAS 

CCD J 








PP^ 

??f\7 








CCOr 
C.C\jO 


Ucc J'«U 


013746 


1 77776 






012737 


000200 


7770 


022552 

vC C '■'C 


012537 


022362 


227} 


022356 


004737 


024576 


2272 


022362 


000000 




2271 


02236A 


000205 




227U 
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SEO 0084 



ROUTINE ^0 REPLACE LEADING ZEROS IN A NUMERK STRING WITH SPACES 
CALL 

ADDRESS OF NUMBER (IN ASCII) 



MOV 
JSR 
.WORD 



*ADR,-(SP) 
R5.REPLZ 
N 



•N* IS NUMBER OF DIGITS TO BE TrPED 



REPLZ: 


MOV 


RO,-(SP) 


SAVE RO 


MOV 


#10. .-(SP) 


MAXIMUM NUMBER OF DIGITS TO BE 'rPED 




SU8 


(R5)*.(SP) 
6(SP).R0 


SU8TACT DIGITS TO FORM INDEX 




MOV 


ADDRESS OF NUMBER TO RO 
BYTE EQUAL TO ASCII '0' ? 


IS: 


CMP8 


#'0,(RO) 




BNE 


2$ 


'BR IF NOT 




M0V8 


#40. (RO) 


REPLACE THE ZERO WITH A SPACE 




INC 


RO 


•INCREMENT TH: BYTE ADDRESS 




BR 


1$ 


■GO BACK AND LOOK FOR MORE LEADING ZEROS 


2$: 


TST8 


(RO) 


;SEE IF ZERO BYTE TERMINATOR 




BNE 


3$ 


;8R IF NOT 




DEC 


RO 


;8ACKUP STRING POINTER 




MOVB 


#'0.(R0) 


;PU'T A ZERO BACK IN 


3$: 


MOV 


6:SP).4$ 


;PUT ADDF<ESS IN LOCATION FOR TYPEOUT 


ADD 


(SP)*,4$ 


;BE6I^MIN6 OF SIGNIFICANT DIGITS 




TYPE 


;TYPE THE Nl^ER 


4$: 


.WORD 


0 


.•ADDRESS OF NUMBER 




MOV 


(SP)*.RO 


.-RESTORE RO 




MOV 


(SP)*.(SP) 


;MOVE RETURN ADDRESS 




RTS 


R5 


.•RETURN 



.TYPE NUMERICAL ASCIZ STRING SUPRESS LEADING ZEROS 



;CALL 



MOV 
JSR 



SSUPRS: MOV 

nov 



IS: 



2S: 



3S: 



TST8 

BEO 

CMP8 

BEO 

DEC 

MOV 

DISPLY 

.WORD 

MOV 

MOV 

RTS 



#NUMADR.-(SP) 
PC.SSUPRS 

RO.-{SP) 
4(SP).R0 
(RO) 
2S 

#*0.(R0)*- 

IS 

RO 

R0.3$ 

0 

(SP)>.RO 

(SP)*.(SP) 

PC 



.•ROUTINE TO TYPE AT PRIORITY 4 



1 77776 



TYPRI4: 



IS: 



MOV 

MOV 

MOV 

JSR 

.WORD 

RTS 



a#ps.-(sp) 
#200.a#ps 

(R5)*.1S 
PC.STYPE 

0 

R5 



.FIRST ADDRESS OF ASCIZ STRING 



SAVE RO 

PICKUP THE POINTER 
TERMINATOR ? 
8R IF YES 

IS THIS AN ASCII 0' ? 
8R IF YES 
BACKUP BY • 1 • 
SAVE FOR TYPING 
GO PRINT 

ASCIZ POINTER GOES HERE 
RESTORE RO 
RESTORE THE STACK 
RETURN 



SAVE THE PRESENT STATUS 
CHANGE THE PRIORITY tq A 
MESSAGE ADDRESS 
TYPE THE MESSAGE 
MESSAGE ADDRESS GOET HERE 
RE TURN 



02<.576 
000002 



000060 
OC0067 



^Z»MTB0 RH05/^/2 DR CKPT TST 
GENERAL SUPPORT SUBROUTINES 



2275 
2276 
2277 
227% 
2279 
2280 

2281 022566 032777 

2282 02237^, 001002 

2283 022376 000137 
228A 0224C2 062716 
2285 022A06 000002 
2236 

2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 

2296 022410 121127 

2297 0224 K 103407 

2298 022416 121127 

2299 022422 101004 

2300 022424 111102 

2301 022426 042702 

2302 022432 005725 

2303 022434 000205 
2304 

2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 

2314 022436 121127 

2315 022442 103407 

2316 022444 121127 

2317 022450 101004 

2318 022452 111102 

2319 022454 042702 

2320 022460 005725 

2321 022462 000205 
2322 

2323 
2324 
2325 
2326 
2327 
2328 
2329 
2350 
2331 
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SEO 0U8'' 



ROUTINE 
CALL 



TO TYPE ERRORS 

DJSPLV 
MESADR 
RETURN 



020000 156560 SDSPLV; 



000060 
000071 



000060 



1t: 



BIT 
BNE 
jMP 
ADD 
RTI 



«Bin3,aswR 

1S 

STVPE 
#2.(SP) 



;MUST DEFINED IN 'TRAP* TABLE 
.'ADDRESS OF MESSAGE 



.•INHIBIT ERROR TYPEOUT 

;BR IF YES 

;TYPE THE MESSAGE 

.•INCREMENT THE RETURN 

.•RETURN 



THIS ROUTINE IS USED TO CHECK IF AN 

ASCII CHARACTER IS A DIGIT BETWEEN 0 AND 7. 



CALL 



MOV #ADR.R1 
jSR R5,CK.0CT 
RETURNI 
RETURN2 



CK.OCT: 



1$: 



CMP8 

BLO 

CMPB 

BHi 

M0V8 

BIC 

TST 

RTS 



(R1).*'0 
1$ 

(R1).*'7 
1$ 

(R1).R2 
**C7.R2 
(R5)> 
R5 



.•ADDRESS OF ASCII CHARACTER 
.-CHECK THE CHARACTER 
.•CHARACTER 15 NOT BETWEEN 0-7 
.•CHARACTER IS IN R2 AS A 
;0CTAL DIGIT 

;LESS THAN ZERO? 
;VES — BRANCH 
.•GREATER THAN SEVEN? 
;YES — BRANCH 
.-GET THE CHARACTER 
.•STRIP AWAY THE ASCII 
.•ADJUST FOR RETURN 
.•RETURN 



THIS ROUTINE IS USED TO CHECK AN ASCII CHARACTER 



AND DETERMINE IF IT IS A DIGIT BETWEEN 0 AND 9. 
CALL 

MOV #ADR.R1 
JSR R5.CK.DEC 
RETURNI 
RETURN2 



.•ADDRESS OF ASCII CHARACTER 
.•CHECK THE CHARACTER 
;NOT BETWEEN 0 AND 9 
.•BETWEEN 0 AND 9 
;R2 = DIGIT 



CK.DEC: 



1$: 



CMPB 

BLO 

CMP8 

BHI 

M0V8 

BIC 

TST 

RTS 



(RD.xr'O 
IS 

(R1).*'9 
1$ 

(R1),R2 
#'0.R2 
(R5)* 
R5 



;LESS THAN ZERO? 
;YES — BRANCH 
.•GREATER THAN NINE? 
;YES — BRANCH 
.-GET THE CHARACTER 
; STRIP AWAY THE ASCII 
.•ADJUST FOR RETURN 
.•RETURN 



THIS ROUTINE WILL CHECK fi\ ASCII CHARACTER TO 



DETERMINE 

CALL 



WHAT IT IS. 



MOV 

JSR 

RETURN 
RETURN 
RETURN 
RE TURN 



/VADR.RI 

R5.CK,CHR 
ADR1 
ADR 2 
ADR3 
ADR4 



.•ADDRESS OF ASCII CHARACTER 
.•CHECK CHARACTER 
.•UNKNOWN CHARACTER 
.•CARRIAGE RETURN • (R1)=ADR*1 
.■COMMA • (R1)-ADR+1 
.•PERIOD * (R1) ADR*1 



7^ 



CZRMTBO RMOS/^/? DR CWPT TST 
GENERAL SUPPORT SUBROUTINES 

2532 
2333 
233A 
2335 

2336 022A64 105711 

2337 022A66 00H17 

2338 022470 121127 000054 

2339 022A74 00U13 

2340 022476 121127 000056 

2341 022502 001407 

2542 022504 004537 022456 
23'.5 022510 000410 

2344 022512 004537 022410 

2345 022516 005725 

2346 022520 005725 

2347 022522 005725 

2348 022524 005725 

2349 022526 005725 

2350 022530 005201 

2351 022532 011505 

2352 022534 000205 
2353 

2554 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2564 
2365 
2366 
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SEC 



DJGJT BETWEEN 0 AND 7. 
DiGJT BETWEEN 8 AND 9. 
R2 = DIGIT • (R1)=ADR*' 

"CARRIAGE RETURN"? 
yES — BRANCH 
"C0l««A"? 
VES — BRANCH 
"PERIOD"? 
YES — BRANCH 
"DIGIT"? 
NO ~ BRANCH 
OCTAL ? 

DIGIT BETWEEN 8-9 
DIGIT BETWEEN 0-7 
PERIOD 
COMMA 

CARRIAGE RETURN 

MOVE POINTER TO NEXT CHARACTER 
UNKNOWN CHARACTER 
RETURN 

THIS ROUTINE CHECKS AN ASCII STRING FOR LEGAL 

CHARACTERS AND FORMS A DECIMAL VALUE BINARY NUMBER IN R2. 





RETURN 


ADR 5 




RETURN 


ADR6 


CK.CHR: 


TST8 


(R1) 




BEQ 


3S 




CMP8 


(R1 ) . 




BEO 


2$ 




CMPB 


(R1 ) . 




BEO 


IS 




JSR 


R5.CK.DEC 




BR 


4S 




JSR 


R5,CK.0CT 




TST 


(R5)* 




TST 


(R5)* 


1$: 


TST 


(R5)* 


2S: 


TST 


(R5)* 


3$: 


TST 


(R5)* 




INC 


R1 


4S: 


MOV 


(R5).R5 




RTS 


R5 



CALL 



MOV 
MOV 

JSR 

RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 



*ADR.R1 

#NUM,R2 

R5.CK.D1G 

ADR1 

ADR2 

ADR3 

ADR4 

ADR5 

ADR6 



ADDRESS OF ASCJZ STRING 

MAX. MAGNITUDE OF INPUT NUMBER 

CHECK DJGJTS 

"CR" ONLY ENTERED ~ R2=0 
"PERIOD" ONLY ENTERED ~ R2=0 
ILLEGAL CHARACTER OR INPUT TOO LARGE 
"CR" — R2 = NLTBER 
"COMMA" — R2 = NUMBER 
'PERIOD" — R2 = Nl#BEft 



~ R2 



2367 


022536 


010446 




CK.DIG: 


MOV 


R4,-(SP) 


•SAVE R4 


2368 


022540 


010346 






MOV 


R3,-(SP) 


' SAVE R3 


2369 


022542 


010246 






MOV 


R2,-(SP) 


•SAVE THE MAX. SIZE ON THE 


2370 


022544 


005002 






CLR 


R2 


•START WJTH 0 


2571 


022546 


005003 






CLR 


R3 




2572 


022550 


005004 






CLR 


R4 




2573 


022552 
022556 


004537 
022652 


022464 




JSR 
6$ 


R5, CK.CHR 


•CHECK ONE CHARACTER 
■ILLEGAL CHARACTER 




022560 


022660 






9$ 




■CARRIAGE RETURN 

■ • ' * • 




022562 


02265? 






6$ 






022564 


022654 






7$ 




■ ' * * * 




022566 


022572 






IS 




•DIGIT 0-7 




022570 


022572 






1$ 




•DIGIT 8-9 


2374 


022572 


062705 


000004 


1$: 


ADD 


*4,R5 


•STEP RETURN POINTER PAST 


2375 


022576 


006303 




2$: 


ASL 


R3 


•INPUT NUMBER *2 


2576 


022600 


010346 






MOV 


R3.-(SP) 


•SAVE »2 


2577 


022602 


006303 






ASL 


R3 


•»4 


2378 


022604 


006303 






ASL 


R3 


••8 


2379 


022606 


062603 






ADD 


(SP)*.R3 


•(»2)*(*8) = "10 


2580 


022610 


060203 






ADD 


R2.R3 


•UPDATE THE INPUT NUMBER 


2381 


022612 


004537 


022464 




JSR 


R5. CK.CHR 


•CHECK ONE CHARACTER 




022616 


022656 






8$ 


•ILLEGAL CHARACTER 



& "PERIOD" RETURNS 



CZ«MTBO RM05/3/2 DR CM?T TST 
CENERAL SUPPORT SUBROUTINES 
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2382 

2383 

2384 

2385 

2386 

2387 

2338 

2389 

2390 

2391 

2392 

2393 

2394 

2395 

23% 

2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

2406 

2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 



022620 
022622 
022624 
022626 
022630 
022632 
022634 
022636 
0226«.0 
022642 
022644 
022646 
022650 
022652 
022654 
022656 
022660 
022662 
022664 
C22666 
022670 
022672 



022674 
022702 
022706 
022712 
022716 
022720 



022724 
022732 
022736 
022742 
022746 
022750 



022642 
022640 
022632 
022576 
022576 
105711 
001010 
005724 
005724 
005724 
020316 
.101004 
000402 
005725 
005725 
060405 
010302 
005726 
012603 
012604 
011505 
000205 



016637 
012746 
004737 
CI 2666 
000207 
000000 



016637 
012746 
00473? 
012666 
000207 
000000 





5$ 






4$ 






3$ 






2S 






2$ 




3S: 


TST8 


(Rl) 


BNE 


8$ 




TST 


(R4)^ 


4$: 


TST 


(R4)* 


5S: 


TST 


R3,(SP) 




CWP 




BHI 


9S 




BR 


8$ 


6$: 


TST 


(R5)* 


7$: 


TST 


(R5)* 


8S: 


ADD 


R4.R5 


9$: 


MOV 


R3,R2 




TST 


(SP)* 




MOV 


(SP)*,R3 




MOV 


(SP)*, R4 




MOV 


(R5),R5 




RTS 


R5 



.•CARRIAGE RETURN 



;DI6IT 0-7 
.•DIGIT 8-9 
.•DOES A "CR' 
IF NOT 



FOLLOW THE 'PERIOD" 



INCREMENT THE RETURN 
.•INCREMENT THE RETURN 
.•INCREMENT THE RETURN 
.•CHECK THE MAGNITUDE OF THE NUMBER 
;8R IF ENTERED NUMBER TOO LARGE 
.-BYPASS INCREMENT 

jlNCRLMENT RETURN PAST INVALID RETURN 
.•INCREMENT RETURN 
.•SETUP RETURN POINTER 
.•ENTERED VALUE 

.•CLEAN MAX. SIZE OFF OF STACK 
.•RESTORE R3 
.•RESTORE R4 
;GEI RETURN ADDRESS 
.•RETURN 

THIS ROUTINE WILL CONVERT A 16-81 T UNSIGNED BINARY NUMBER TO AN 

UNSIGNED DECIMAL ASCIZ NUMBER. 

CALL 

MOV NUMBER. -(SP) ;PUT THE fJLMBER ON THE STACK 
JSR PC.$SB2D .-CALL 

RPTURN .-ADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK 



000002 
022720 
027004 
000002 

000000 



022720 



NOTE: 

I 

SSe2D: 
1$: 



THE PROGRAM REQUIRES THIS FORM OF •$S82D'. NOT THE VERSION ON 
THE SYSMAC LIBRARY, REV C AND LATER 



MOV 
MOV 
JSR 
MOV 
RTS 
.WORD 



2(SP).1$ 

#1$.-(SP) 

PC,$DB2D 

(SP)*.2(SP) 

PC 

0,0 



;SAVE THE BINARY NUMBER 
SET THE POINTER 
CALL THE DOUBLE LENGTH CONVERT 
PICKUP THE POINTER 
RETURN 



THIS ROUTINE WILL CONVERT A 16-81 T UNSIGNED BINARY NUMBER TO AN 

UNSIGNED OCTAL ASCIZ NUMBER. 

CALL 

MOV NLMBER,-(SP) .PUT THE ^AJMBER ON THE STACK 
JSR PC,$SB20 .-CALL 

RETURN ;ADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK 



000002 
022750 
027200 
000002 

000000 



NOTE : 



022750 $S820: 



1$: 



THE PROGRAM REQUIRES THIS FORM OF •$S820'. NOT THE VERSION ON 
THE SYSMAC LIBRARY, REV C AND LATER 



MOV 
MOV 

JSR 
MOV 
RTS 
.WORD 



2(SP).1$ 
#1$,-(SP) 

PC,$DB20 

(SP)*,2(SP) 

PC 

0,0 



.•SAVE THE BINARY NUMBER 

;SET THE POINTER 

;CALL THE DOUBLE LENGTH CONVERT 

.-PICKUP THE POINTER 

.•RETURN 



C2RMTB0 RM05/5/2 DR CMPT TST 
GENERAL SUPPORT SUBROUTINES 

2455 
2456 
2457 
2458 

2459 022754 012757 025004 

2440 022762 012757 000240 

2441 022770 005777 156166 

2442 022774 012777 000100 
2445 025002 000207 

2444 
24^5 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2455 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2465 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2475 
2474 
2475 
2476 
2477 
2478 
2479 
2^80 
2481 
2482 
2485 

2484 025150 010546 

2485 025152 005046 

2486 025154 012705 025426 

2487 025160 022705 025452 

2488 025164 101467 

2489 025166 104410 

2490 025170 112615 
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KEYBOARD INTERRUPT INITIALIZATION ROUTINE 
CALL 

JSR PC.STKINT 
RETURN 



000060 
000062 

156156 



STKINT: MOV *$TKSRV, TKy/EC 

MOV *PR5.TKVEC*2 

TST SSTKB 

MOV *8IT06,a$T<S 

RTS PC 



SETUP VECTOR 
PRIORITY TO 5 
CLEAR THE BUFFER 
SET INTERRUPT ENABLE 
RETURN 



KEYBOARD INTERRUPT SERVICE ROUTINE 
CALL 

ENTER VIA INTERRUPT 



025004 


104410 






STKSRV: 


RDCHR 




02i006 


112657 


025146 






M0V8 


(SP)*,5$ 


025012 


025727 


025146 


000005 




CMP 


5$.*5 


025020 


001017 








BNE 


1$ 


C25022 


104401 


001207 






TYPE 


,$CRLF 




1 U*»*tU 1 


Uc J** 










025052 


012757 


Mini 


001556 




MOV 


#-1 .CFLAG 


025040 


005077 


156114 






CLR 


aSTKS 


025044 


104401 


001207 






TYPE 


.fCRLF 


025050 


104401 


045106 






TYPE 


,HALTX 


025054 


0001 77 


1 56520 






JMP 


SRSTART 


025060 


025727 


001154 


000176 


1$: 


CMP 


SUR.^SUREG 


025066 


001024 








BNE 


5$ 


025070 


025727 


025146 


000007 




CMP 


5$.>»7 


025076 


001020 








BNE 


5$ 


025100 


104401 


001207 






TYPE 


,$CRLF 


025104 


104401 


026661 






TYPE 


.$CNTLG 


025110 


015746 


M777b 






MOV 


PS.-(SP) 


025114 


012746 


025150 






MOV 


*2$.-(SP) 


02^120 


005077 


156054 






CLR 


aSTKS 


025124 


000157 


026512 






JMP 


S6TSUR 


025150 


012777 


000100 


156022 


2$: 


MOV 


*100.8$TKS 


025156 


000402 








BR 


4$ 


025140 


104401 


025146 




5$: 


TYPE 


,5$ 


025144 


000002 






4$: 


RTI 




025146 


OOOCOO 






5$: 


.WORD 


0 



READ THE KEYBOARD 
GET THE CHARACTER 
•CONTROL C ? 
BR IF NOT 
CR-LF 

I f 

SET THE 'CONTROL C FLAG 
CLEAR THE TTY INTERRUPT 
CR-LF 

HALT THE PROGRAM 
JUMP TO RESTART 

SOFTWARE SWITCH REGISTER IN USE ? 

BR IF NOT 

•CONTROL G' ? 

BR IF NOT 

CR-LF 

••G' 

PUT THE STATUS WORD ON THF '"ACK 
RETURN ADDRESS 

CLEAR THE TTY INTERRUPT ENABLE 
GET THE SWITCH REGISTER ENTRY 
ENABLE TTY KEYBOARD INTERRUPT 
EXIT 

ECHO THE CHARACTER 
RETURN 

.ENTERED CHARACTER 



THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
CALL: 

RDL IN 

RETURN HERE 



.INPUT A STRING FROM THE TTY 

ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
TERMINATOR WILL BE A BYTE OF ALL O'S 



SRDLIN: MOV 
CLR 

1$: MOV 
2$: CMP 
6L0S 
RDCHR 
MOVB 



R5,-(SP) 
-(SP; 

«TTYIN.R5 

«TTyiN*20-.R5 

8$ 

(SP)*.(R5) 



SAVE R5 

CLEAR THE RU80UT KEY 
GET ADDRESS 
BUFFER FULL? 
6R IF YES 

GO READ ONE CHARACTER FROM TH? TTY 
GET CHARACTER 



CZRMTfiO RM05/3/2 DR CMPT TST 
GENERAL SUPPORT SUBROU TINES 



2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 



0231 72 
023176 
025200 
023202 
023204 
023212 
023216 
023222 
023224 
023230 
023232 
023236 
023242 
023244 
023246 
023250 
023256 
023262 
023264 
023270 
023272 
023276 
023300 
023304 
023306 
023314 
023320 
023322 
023326 
023330 
023332 
023336 
023342 
023344 
023350 
023352 
023356 
023362 
023366 
023370 
023374 
023400 
023402 
023404 
023406 
023414 
023422 
023424 
023425 
023426 
023452 



1227-3 
001022 
005716 
0C1007 
112737 
104431 
012716 
005303 
020327 
103445 
111337 
104401 
000746 
005716 
001406 
112737 
104401 
005016 
122713 
001003 
104401 
000726 
122713 
00(006 
012737 
104401 
000427 
122713 
001011 
105013 
104401 
104401 
000706 
104401 
000701 
111337 
104401 
122723 
001274 
105063 
104401 
005726 
012603 
011646 
016666 
012766 
000002 
000 
000 

136 



000177 



0001 34 
023424 
177777 

023426 

0234<e4 
023424 



0001 34 
023424 

000025 

026654 

000003 

M7777 
023452 

000012 



001207 
023426 

001206 

023424 
023424 
000015 

-[77777 
001210 



000004 
023426 
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CMP8 
BNE 
TST 
BNE 

023424 MOVB 
TYPE 
MOV 

3$: DEC 
CMP 
BLO 
M0V8 
TYPE 
BR 

4$: TST 
BEQ 

023424 MOVB 
TYPE 
CLR 

5$: CMP8 
BNE 
TYPE 
BR 

6$: CMPB 
BNE 

001336 MOV 
TYPE 
BR 

7$: CMP8 
BNE 
CLR8 
TYPE 
TYPE 
BR 

8$: TYPE 
BR 

9S: MOVB 
TYPE 
CMPB 
BNE 
CLRB 
TYPE 

10$; TST 
MOV 
MOV 

000002 MOV 
000004 MOV 
RTI 

11$: .BYTE 
.BYTE 
$TTYIN: .BLW3 
200 SCNTLC: .ASCIZ 
• EVEN 
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SEO 0089 



#177, (R3) 
4$ 
(SP) 
3$ 

#'\.11t 
J1S 

#-l,(SP) 
R3 

R3.nTTYlN 
8S 

(R3).11$ 

(SP) 
5$ 

#'\,11$ 

jii 

(SP) 

#25, (R3) 
6$ 

.SCNTLU 
1$ 

#3,(R3) 
7$ 

#-1,CFLAG 

.$CNTLC 

10$ 

#12,(R3> 

9$ 

{R3) 

,$CRLF 

,$TTYIN 

2$ 

.$OUES 
1$ 

<R3),11$ 
.11$ 

#15, (R3)* 
2$ 

-1(fl3) 

,$LF 

(SP) + 

(SP)*, R3 

(SP),-(SP) 

4(SP).2(SP) 

#$TTYIN,4(SP) 

0 
0 

20. 

/*C/<CRLF> 



IS IT A RU80UT 
8R IF NO 

IS THIS THE FIRST RUBOUT? 
BR IF NO 

TYPE A BACK SLASH 

SET THE RUBOUT KEY 
BACKUP BY ONE 
STACK EMPTY? 
BR IF YES 

;SETUP TO TYPEOUT ^hE DELETED CHAR. 

GO TYPE 

GO READ ANOTHER CHA«, 
RUeOUT KEY SET? 
BR IF NO 

TYPE A BACK SLASH 

CLEAR THE RUBOUT KEY 
IS CHARACTER A CTRL U? 
8R IF NO 

TYPE A CONTROL 'M" 

60 START OVER 

IS CHARACTER A CTRL C ? 

BR IF NOT 

SET CNTRL C FLAG 

ECHO IT 

EXIT 

IS CHARACTER A 'IF"? 

BRANCH IF NO 

CLEAR THE CHARACTER 

TYPE A "CR" t 'IF" 

TYPE THE INPUT STRING 

GO PICKUP ANOTHER CHACTER 

TYPE A •?• 

CLEAR THE BUFFER AND LOOP 
.ECHO THE CHARACTER 

CHECK FOR RETURN 

LOOP IF NOT RETURN 

CLEAR RETURN (THE 15) 

TYPE A LINE FEED 

CLEAN RUBOUT KEY FROM THE STACK 

RESTORE R3 

ADJUST THE STACK AND PUT ADDRESS OF THE 
FIRST ASCII CHARACTER ON IT 

RE TURN 

STORAGE FOR ASCII CHAR. TO TYPE 
TERMINATOR 

RESERVE 20. BYTES FOR TTY INPUT 
CONTROL "t" 
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END OF PASS ROUTINE 



SEO 0090 



1 



.S8TTL END OF PASS ROUTINE 



.••INCREMENT THE PASS NUMBER (SPASS) 
;»1F SU12=1 INHIBIT TRACE TRAP 
;*IF THERES A MONITOR GO TO IT 
.••IF THERE ISN'T JUMP TO FINISH 











VC 








023A60 


005037 


001116 




023A6A 


005037 


001176 






005237 


001220 






042757 


100000 

1 www 


001 220 


023502 


005327 






023504 


000001 






023506 


003022 






023510 


012737 






023512 


000001 






C235K 


023504 






023516 


01 3700 


000042 




023522 


001414 






023524 


005046 






023526 


012746 


023534 




023532 


000426 






02353A 








023534 


013700 


000042 




023540 


001405 






023542 


000005 






023544 


004710 






023546 


000240 






023550 


000240 






023552 


000240 






023554 








023554 


104400 






023556 


042716 


000020 




023562 


032777 


010000 


155364 


023570 


001005 






023572 


005137 


023616 




023576 


100402 






023600 


052716 


000020 




023604 


012746 


023612 




023610 


000002 







$EOP: 



SCLR.T; 



SENDAO: 



SOOAGN: 



023612 
02361? 
0236' 

0236.'! 

2 

3 023620 

4 023624 

5 0236 ?6 

6 023652 

7 0236'^ 

8 02364;^ 



000137 
023620 
000000 

005737 
001004 
104401 
104401 
104401 
104401 



1$: 

SRTRN: 



SLOOP: 

SRTNAD: 
$T8IT: 



NOP 




CLR 


STSTNM 


CLR 


STIMES 


INC 


SPASS 


BIC 


#100000. SPASS 


DEC 


(PC)* 


.WORD 


1 


BGT 


SDOAGN 


MOV 


(PC)*-.a(PC)* 


.WORD 


1 


SEOPCT 




MOV 


a#42.R0 


6E0 


SDOAGN 


CLR 


-(SP) 


MOV 


/r$CLR.T.-(SP> 


BR 


SRTRN 


MOV 


a«42,R0 


BEQ 


SDOAGN 


RESET 




JSR 


PC.(RO) 


NOP 




NOP 




NOP 





TRAP 

BIC 

BIT 

BNE 

COM 

BMI 

BIS 

MOV 

RTI 



JMP 

.WORD 

.WORD 



001376 

001207 
042402 
001207 
043004 



FINISH: TST 
BNE 
TVPE 
TYPE 

IS: TYPE 
TYPE 



#20. (SP) 

«8IT12.aSUR 

IS 

ST8JT 
IS 

#20. (SP) 
#SLOOP.-(SP) 



acpo* 

FINISH 
0 

FAULT 
IS 

.SCRLF 
.MESG15 
.SCRLF 
.MESG20 



;;ZER0 THE TEST NUMBER 
;;2ER0 THE NUMBER OF ITERATIONS 
.-.INCREMENT THE PASS NUW3ER 
;; DON'T ALLOW A NEG. NUMBER 

;;LOOP? 

;;VES 

;. -RESTORE COUNTER 



;:GET MONITOR ADDRESS 

;:8RANCH IF NO MONITOR 

.-.INSURE THE 'T' BIT IS CLEAR 

.-.SETUP FOR AN RTI OR RTT 

;;60 DO AN RTI OR RTT TO LOAD THE PSU 

;;UITH A CLEARED '7" BIT 



THE MONITORS 



.•.-INSURE RO CONTAINS 
.-.RETURN ADDRESS 
.-.-CLEAR THE WORLD 
;;G0 TO MONITOR 
.-.SAVE ROOM 
;;FOR 
;;ACT11 



.-.-PUSH OLD PSW AND PC ON STACK 
.-.CLEAR THE *T' BIT 
.-.-RUN WITH TRACE TRAP? 
;;8H IF NO 

;.-IS IT TIME FOR TRACE TRAP 

;;6R IF NO 

;;SET TRACE TRAP 

.-.-JUMP TO START OF TEST 

;; RE TURN— THIS IS CHANGED TO 

;;AN "RM" IF "K\V' IS A LEGAL 

.-.■INSTRUCTION 

.-.RETURN 

;;'T* BIT STATE INDICATOR 

COMPATIBLE ? 
BRANCH IF NOT 
CR-LF 

MESSAGE: ALL DRIVE COMPATIBLE 
CR-LF 



)78 



CZRMTBO RM05/3/2 OR CMPT TST 
END OF PASS ROUTINE 



9 023o46 

10 

n 035656 



104401 04302? 
104401 001 ?07 
000177 155516 



N 



MACRO V04.00 4-APR-81 18;12:15 PACE 



TYPE .STARS 
TYPE .fCRLF 
JflP aRSTART 



7 

10-1 



SEO 0091 



TYPE STARS MESSAGE 
CR-LF 

JUMP TO RESTART 
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EMROR HAMDLER ROUTINE 

" .SBTTL ERROR HANDLER ROUTINE 



SEO 009? 



•THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT 
•SAVE THE ERROR ITEM NUMBER AND THE ADDRESS Of THE ERROR CALl 
•AND GO TO SERRT/P ON ERROR 

•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE ■ 
•SWT 5=1 HALT ON ERROR 

INHIBIT ERROR TVPEOUTS 



SWT 3=1 
•SW10=1 
•SW09=1 
•CALL 



BE..L ON ERROR 
LOOP ON ERROR 



ERROrt N 



023662 


105037 


024254 




SERROR: 


CLR8 


I8SAVE 


• 


023666 


104407 








CKSWR 






023670 


105237 


001 1 1 7 




7$: 


INC8 


$ERFLG 


• 


02367A 


001775 








BEQ 


7$ 




023676 


013777 


001116 


^55252 




MOV 


$TSTNM,aDI SPLAY 


* 


C2370« 


032777 


0C2OOO 


155242 




BIT 


#8IT10,aSUR 


* 


02371? 


001402 








BEQ 


1$ 


• 


0237U 


104401 


001202 






TYPE 


,$8ELL 


• 


023720 


005237 


001126 




1$: 


INC 


$ERTTL 




02372A 


011637 


001132 






MOV 


(SP). $ERRPC 


• 


023730 


162737 


000002 


001132 




SUB 


*2,$ERRPC 




023736 


117737 


155170 


001 1 30 




M0V8 


8$ERRPC,$ITEMB 


• 


0237AA 


032777 


AAA 

001000 


155202 




BIT 


4f8IT09,SSUR 


« 


023752 


001060 








BNE 


1004$ 




023754 


122737 


000177 


001 1 30 




CMPB 


#1 77, $ITEnB 


• 


023762 


001454 








BEQ 


1004$ 




023764 


105737 


024254 






TST8 


I8SAVE 


• 


02^770 


001047 








BNE 


1003$ 




023772 


022737 


•[77777 


024252 




CMP 


#-l,CPSAVE 


# 


02 A 000 


001445 








BEQ 


1004$ 




024002 


013746 


000004 






MOV 


ERRVEC-iSP) 


• 


024006 


012737 


024024 


000004 




MOV 


*1000$,ERRVEC 


« 


024014 


013737 


1 77766 


024252 




MOV 


1 77766. CPSAVE 


* 




AAA/ A^ 

0004 Uo 








oo 
oH 


1 UU 1 > 




024024 


012737 


U7777 


024252 


1000$: 


MOV 


*-1. CPSAVE 


# 


024032 


012716 


024040 






MOV 


/lfl001$,(SP) 




024036 


000002 








RTI 






024040 


012637 


000004 




10015: 


MOV 


(SP)*.ERRVEC 


• 


024044 


022737 


y77777 


024252 


1002$: 


CM? 


#-1, CPSAVE 


* 


024052 


001420 








BEO 


1004$ 




024054 


032737 


000001 


024252 




BIT 


*8I TOO, CPSAVE 


• 


024062 


001414 








BEQ 


1004$ 




024064 


042737 


000001 


1 77766 




BIC 


#81 TOO, 177766 


0 


024072 


113737 


001130 


024254 




M0V8 


$ITEMB.IBSAVE 


9 


024100 


112737 


000177 


001130 




M0V8 


*1 77. $ITEHB 


* 


024106 


000402 








BR 


1004$ 




024110 


105037 


02^25^ 




1003$: 


CLR8 


I8SAVE 


* 


024114 








1004$: 








024114 


032777 


020000 


155032 




BIT 


/ir8IT13,aSUR 


9 


024122 


001004 








BNE 


20$ 


9 


024124 


00473? 


024256 






JSR 


PC.$ERRTYP 


m 



;;ERROR=EMT AND N=ERROR ITEM NUMBER 

CLEAR THE ITEM BYTE SAVE LOCATION 
TEST FOR CHANGE IN SOFT-SUR 
SET THE ERROR FLAG 
DON'T LET THE FLAG GQ TO ZERO 
DISPLAY TEST NUMBER AND ERROR FLAG 
BELL ON ERROR? 
NO - SKIP 
RING BELL 

COUNT THE r/UMBER OF ERRORS 
GET ADDRESS OF ERROR INSTRUCTION 

STRIP AND SAVE THE ERROR ITEM CODE 
SEE IF LOOP ON ERROR IS SET 
BRANCH AROUND ROUTINE IF SO 
SEE IF THIS IS THE POWER FAIL CALL 
BRANCH AROUND ROUTINE IF IT IS 

SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE 
BRANCH IF SO 

SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
BRANCH IF SO 

SAVE CONTENTS OF ERROR VECTOR 
SETUP 'TRAP' RETURN ADDRESS 
MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 



; .-RESTORE CONTENTS OF ERROR VECTOR 

SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
BRANCH IF SO 

SEE IF POWER MONITOR BIT IS '"ET IN CPU ERR REG 
BRANCH IF OK 
CLEAR THE BIT FOUND SET 
MAKE I8SAVE NON-ZERO FOR DUAL ERROR CALL 
SET $ITEMB TO SPECIAL POWER FAIL POINTER 
BRANCH OVER IBSAVE CLEARING 

;; CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 



rZR«1TB0 mQ'y/l/l DR CMPT TST 
ERROR HANDLER ROUTINE 



024130 

024134 
024142 
024144 
024152 
024156 
024157 
024160 
024162 
024166 
024170 
024174 
024176 
024200 
024202 
024202 
024210 
024212 
024216 
024222 
024224 
024230 
024230 
024236 
024240 
024242 
024242 
024246 
024250 
024252 
024254 



104401 


00120^ 


122737 


000001 


001007 


001130 


113737 


004757 


025150 


000 




000 




000777 




105737 


024254 


001005 




005777 


154760 


100002 




000000 




104407 




032777 


001000 


001402 




013716 


00 1 1 4:4 


0C5737 


001200 


001402 




01 3716 


AA1 lAA 

00 i<:0U 


022757 




001 001 








105737 


024254 


001210 




000002 




000000 




000000 





1ACR0 V04.0C 



001232 



C 8 
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SEO 0091 



024156 



154744 



000042 





T VDC 




20»: 






r MOO 




















or CATV/. 


2 


QV TP 


A 

u 


QvTC 


A 


dci. 


QD 
OK 






T C TD 


in >A\/P 

lO J«Vt 


oNt 


J* 




T C T 






DDI 

ar'L 


T« 

J* 




LlAI T 


















Q T T 


Mai TOO acuD 




DCU 






MDV/ 

nuv 




/.c - 


T^T 












MOV/ 

nuv 




• 








riMP 






DnIC 






HALT 




6S: 








TST8 


IBSAVE 




BNE 


7$ 




RTI 




CPSAVE : 


.WORD 


0 


I8SAVE : 


.WORD 


0 



.-.RUNNING IN APT MODE 

;; NO. SKIP APT ERROR REPORT 

;;SET ITEM NUMBER AS ERROR NUMBER 

; .-REPORT FATAL ERROR TO APT 



;;APT ERROR LOOP 

.-.SEE IF IBSAVE IS LOADED 

; .-BRANCH IF NOT - NO HALT 

;;HALT ON ERROR 

;;SKIP IF CONTINUE 

.-.-HALT ON ERROR i 

.-.•TEST FOR CHANGE IN SOFT- 



ON PWR MON BIT ERROR 



SWR 



;;LOOP ON ERROR SUnCH SET? 
;;8R IF NO 

;;FUDGE RETURN FOR LOOPING 
;; CHECK FOR AN ESCAPE ADDRESS 
;;BR IF NONE 

.-.•FUDGE RETURN ADDRESS FOR ESCAPE 

;;ACT-n AUTO-ACCEPT? 
; .-BRANCH IF NO 
;;YES 

;;SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 
.-.-BRANCH BACK TO CALL ORIGINAL ERROR 
; .-RETURN 

.-.-LOCATION TO SAVE CPU ERROA REG CONTENTS 
; .-LOCATION TO SAVE ITEM BYTE 



CZRMTBO RM05/3/2 OR CMPT TST 
ERROR MESSAGE TYPE OUT ROUT 11^ 
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.S8TTL ERROR MESSAGE TYPE OUT ROUTJNE 



SEO 0094 



•THIS ROUTINE USES THE "ITEM CONTROL BYTE" (SITEMB) 
•ERROR IS TO BE REPORTED. IT THEN OBTAINS. FROM THE 
•AND REPORTS THE APPROPRIATE INFORMATION CONCERNING 



TO DETERMINt 
"ERROR TABLE* 
THE ERROR. 



WHICH 

' ($ERRT8/ 











CrODT VP 








1 A/ / n 1 
1 U»«*iU 1 


AA1 5A7 






T VPF 






11 1 UU*tD 








MOW 














ri R 


RO 


UcHcOO 


1 ^77nr> 

1 J J ' uu 


nni 1 7n 

UVJ 1 1 








a#SITFMR RO 


Ut**c t c 


Af>i r>nz. 








Of «L 


1* 

1 9 




V 1 Jf *»o 








MOV 


iFRRPC -(SP) 


\Jc'*J\AJ 










TVPOC 


6S 


















0001 77 




1i- 




#1 77, RO 




AAI A/V, 








RNF 


10001 




ni 7777 


oni?i^^ 

\J\J 1 C 1 u 


0P4574 




MOV 


ITESTN PFT^TN 






0P4474 






MOV 


#PF ECH-RO 












BR 


1001$ 










i ooos • 


DEC 


RO 














RO 












A^l 


RO 












ASL 


RO 






00576? 






ADD 


/IflERRTB RO 






OP435? 




10011- 


MOV 


(R0)4 21 




00K04 

\J\J 1 •tW"* 










5S 




104401 








TYPE 






VAA/VI/V/ 






c ^ • 


UORD 


0 




104401 


001 ?0 7 

v/v/ lev* 






TYPE 


,$CRLF 






0P4770 






MOV 


(R0)«,4S 




\J\J \ HvM 








REO 


51 












TYPE 






000000 






4t' 


.WORD 


0 


we**-?' c 


104401 


001 207 






TYPE 


,1CRLF 












MOV 


(RO) RO 












BNE 


71 












MOV 


(SP;+,RO 


wf 




001 207 

W 1 CI/ ■ 






TYPE 


.ICfiLF 












PTS 


PC 


02A412 








7$: 






024&12 


013046 








MOV 


a(RO)*,-(SP^ 


024AU 


104402 








TYPOC 




02A416 


005710 








TST 


(RO) 


024420 


001770 








BEQ 


61 


024422 


104401 


024430 






TYPE 


,81 


024426 


000771 








BR 


71 


024430 


040 


040 


000 


8S: 


.ASCIZ 


/ / 












.EVEN 




024434 


024444 


024526 


02456U 


PFECH: 


PFECHI .PFECH2.PFECH3.P 




120 


117 


127 


PFECHI : 




7P0WER MONITOR 


024526 


124 


105 


123 


PFECH2: 


.ASCIZ 


7TESTN0 ERR P 












.EVEN 




024560 


024574 


001132 


024252 


PFECH3; 


.WORD 


PF TSTN.lcRRPC. 



.-."CARRIAGE RETURN" I "LINE FEEt;' 
■ -SAVE RO 

;; PICKUP THE ITEM INDEX 



* 0 
» » 

0 • 

0 m 

0 0 

0 0 

0 0 

0 0 

m 0 

0 0 

* 0 



IF ITEM NlfBER IS ZERO. JUST 
TYPE THE PC OF THE ERROR 
SAVE lERRPC FOR TYPE OUT 
ERROR ADDRESS 

GO TYPE— OCTAL ASCII (ALL DI(7ITS) 
GET OUT 

SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL 
BRANCH IF NOT 
GET TEST NUMBER 

MOVE POWER FAIL ERROR CALL TABLE TO RO 
BRANCH TO CALL ERROR 
i.ADJUST THE INDEX SO THAT IT WILL 
|; WORK FOR THE ERROR TABLE 



;;FORM TABLE POINTER 

;; PICKUP "ERROR MESSAGE" POINTER 

;;SKIP TYPEOUT IF NO POINTER 

;;TYPE THE '^RROR MESSAGE" 

;; "ERROR MESSAGE" POINTER GOES HERE 

.-."CARRIAGE RETURN" I "tlNE FEED" 

;;PICKLff» "[>^^^ HEADER" POINTER 

; SKIP TYPEOUT IF 0 

;;TYPE THE 'DATA HEADER" 

;;'T)ATA HEADER" POINTER GOES HERE 

.-.-"CARRIAGE RETURN" I "LINE FEED" 

;; PICKUP 'DATA TABLE" POINTER 

;;G0 TYPE THE DATA 

; .-RESTORE RO 

; .-"CARRIAGE RETURN" £ 'tlNE FEED" 
.-.-RETURN 

;;SAVE a(RO)» FOR TYPEOUT 

;;G0 TYPE— OCTAL ASCII (ALL DIGITS) 

;.IS THERE ANOTHER NUMBER? 

;.-8R IF NO 

;;TYPE TW0(2) SPACES 

.-.-LOOP 

;;TW0(2) SPACES 



CPUERRE6? 



E 8 

C7RMTB0 ftM05/3/2 OR CMPT TST MACRO V04.00 4-APR-81 18:12:15 PAGE 1?-1 
ERROR MESSAGE TVPEOUT ROUTINE 



C24570 000 000 000 PFECH4; .8VTE 0.0.0.0 rmutAiiuc tkt MMtfo rno P» RI fftRCiR 

ol«.S74 000000 PFTSTN: .WORD 0 ;;CONTA]NS TEST NLf«« f0« Pf BI tRRW 



F 8 

ZfWTBO RI10S/^/2 DR :mpt 'ST "lACRO V0<..00 A-APR-81 18:'?: IS PAGE 1^ 
VPE ROUMNt 

,S8TTL TYPE ROUTINE 

••ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
.••THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
;»N0TE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

.••N0TE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

.••N0TE3: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 

• • 

••CALL: 

;•!> USING A TRAP INSTRUCTION 

;• TYPE .ME«iADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 

.■•OR 

;• TYPE 
;• MESADR 



02A576 


105737 


001173 




S^YPE: 


^STB 


$TPFLG 


;IS THERE A TERMINAL? 


334602 


100002 








BPL 


1$ 


;8R IF YES 


C24604 


000000 








HALT 




.-HALT HERE if NO TERMINAL 


024606 


000430 








BR 


3$ 


.LEAVE 


024610 


010046 






1$: 


MOV 


RO.-{SP) 


.SAVE RO 


024612 


01 7600 


000002 






MOV 


a2(SP).R0 


.GET ADDRESS OF ASCIZ STRING 


024616 


122737 


000001 


001232 




CMP8 


#APTEN\'.$ENV 


.-RUNNING IN APT MODE 


024624 


001011 








BNE 


62$ ; 


.NO. GO CHECK FOR APT CONSOLE 


024626 


132737 


000100 


001233 




81 T8 


#APT SPOOL, $ENVM ; 


.•SPOOL MESSAGE TO APT 


024634 


001405 








BE a 


62$ 


;NO.GO CHECK FOR CONSOLE 


024636 


010037 


024646 






MOV 


R0.61$ 


.•SETUP Mt'SSAGE ADDRESS FOR APT 


024642 


004737 


025140 






JSR 


PC.SATY3 


.SPOOL MESSAGE TO APT 


024646 


000000 






61$: 


.WORD 


0 


.MESSAGE ADDRESS 


024650 


132737 


000040 


001233 


62S: 


BITS 


#APTCSUP.$ENVM ; 


:APJ CONSOLE SUPF>RESSED 


024656 


001003 








BNE 


60$ 


; YES. SKIP TYPE OUT 


024660 


112046 






2$: 


M0V6 


(RO)*.-{SP) 


.PUSH CHARACTER TO BE TYPED ONTO STACK 
;8R IF IT ISN'T THE TERMINATOR 


024662 


001005 








BNE 


4$ 


024664 


005726 








TST 


(SP)* 


;IF TERMINATOR POP IT OFF THE STACK 


024666 


012600 






60$: 


MOV 


(SP)*.RO 


.•RESTORE RO 


024670 


062716 


000002 




3$: 


ADD 


#2.(SP) 


.•ADJUST RETURN PC 


024674 


000002 








RTI 




.•RETURN 


024676 


122716 


00001 1 




4$: 


CMP8 


*HT.(SP) ; 


.•BRANCH IF <HT> 


024702 


001430 








BEO 


8$ 




024704 


122716 


000200 






CMPB 


#CRLF.(SP) 


.•BRANCH IF NOT <CRLF> 


024710 


001006 








BNE 


5$ 




024712 


005726 








TST 


(SP)* 


.POP <CR><LF> EOUIV 


024714 


104401 








TYPE 




.TYPE A CR AND LF 


024716 


001207 








$CRLF 




024720 


105037 


025126 






CLR8 


$CHAfiCNT 


.•CLEAR CHARACTER COU^T 


024724 


000755 








BR 


2$ 


;GET NEXT CHARACTER 


024726 


004737 


025010 




5$: 


JSR 


PC.$TVPEC 


;G0 TYPE THIS CHARACTER 


024732 


123726 


001 1 72 




6$: 


CMP8 


$FILLC.(SP)* 


;IS IT TIME FOR FILLER CHARS.. - 


024736 


001350 








BNE 


2$ 


;IF NO GO GET NEXT CHAR. 


024740 


013746 


001170 






MOV 


$NUIL,-(SP) 


;GET » OF FILLER CHARS. NEEDED 














.-AND THE NULL CHAR. 


024744 


105366 


000001 




7$: 


DEC8 


KSP) ; 


.-DOES A NULL NEED TO BE TYPED? 


024750 


002770 








BLT 


6$ 


.•BR IF NO— GO POP THE NULL OFF OF STACK 


024752 


004737 


025010 






JSR 


PC.$TYPEC 


;G0 TYPE A NULL 


024756 


105337 


025126 






DECS 


SCHARCNT 


;D0 NOT COUNT AS A COUNT 


'J24762 


000770 








BR 


7$ 


.■LOOP 



TYPE ROUTINE 



•1ACR0 V04.00 4-APR-81 



.•HORIZONTAL TA8 



024764 


112716 


000040 




8S: 


M0V8 


C2^770 


004737 


025010 




9$: 


JfR 


024774 


132737 


000007 


025126 




BITS 


025002 


001372 
005726 








BNE 


025004 








TST 


025006 


000724 








BR 


025010 








STYPEC: 




025010 


105777 


154144 






TST8 


025014 


100022 








BPL 


025016 


017746 


154140 






MOV 


025022 


042716 


1 77600 






BK 


025026 


122716 


000023 






CMPB 


025032 


001012 








BNE 


025034 








101$: 




025034 


105777 


154120 






TST8 


025040 


100375 








BPL 


C25042 


11/716 


154114 






M0V8 


025046 


042716 


1 77600 






BJC 


025052 


122716 


000021 






CMP8 


025056 


001366 








BNE 


025060 








102$: 




025060 


005726 








TST 


025062 








10$: 




025062 


105777 


154076 






TSTB 


025066 


100^75 








BPL 


025070 


116677 


000002 


154070 




M0V8 


025076 


122766 


00001 5 


000002 




CMP8 


025104 


001003 








BNE 


025106 


105037 


025126 






CLR8 


025112 


000406 








BA 


025114 


122766 


000012 


000002 


1$: 


C«P8 


025122 


001402 








BEQ 


025124 


105227 








INCe 


025126 


000000 






$CHARCNT:.UORO 


025130 


000207 






$rYPEX: 


RTS 



.■.•REPLACE TAB WI fH SPACE 
;;TyPE A SPACE 
; .-BRANCH IF NOT AT 
;;TA8 STOP 

;;POP SPACE OFF S1ACK 
;;GET NEXT CHARACTER 

;;CHAR IN KYBD BUFFER? 
;;8R IF NOT 
;;GET CHAR 

;; STRIP EXTRANEOUS BITS 
;;WAS CHAR XOFF 
;;8H IF NOT 

;;WA!T FOR CHAR 

;;GET CHAR 
;; STRIP IT 
;;WAS IT XON? 
;;8R IF NOT 

;;FIX STACK 

;;WAIT UNTIL PRINTER IS READY 

;;LOAD CHAR TO BE TYPED INTO DATA REG. 
;;IS CHARACTER A CARRIAGE RETURN? 
.-.-BRANCH IF NO 

;; YES— CLEAR CHARACTER COUNT 
;;EXIT 

;;IS CHARACTER A LINE FEED? 
; .-BRANCH IF YES 
;; COUNT THE CHARACTER 
CHARACTER COUNT STORAGE 



ZRWTBO RM05/5/2 Dft CMPT TST JnACRO vW.OO 4-APR-81 
3'. APT COMMUNICATIONS ROUTINE 

.S8TTL APT CO 



025132 


112737 


000001 


025376 


iATYl : 


M0V8 


025 KO 


112737 


000001 


025374 


$ATY3: 


M0V8 


025K6 


000403 








BR 


025150 


112737 


000001 


025376 


$ATV4: 


M0V8 


025156 








SATVC : 




025156 


010046 








MOV 


025160 


010K6 








MOV 


025162 


105737 


025374 






TST8 


025166 


00K50 








BEO 


025170 


122737 


AA AA A 1 

000001 


001232 




CMP8 


0251 76 


A A 4 A7 1 

001031 








BNE 


025200 


132737 


AAA 1 A A 

000100 


A A 1 7 7 

001<:33 




BJ T8 


025206 


A A ^ y r 

OOK25 








BEQ 


025210 


A 1 A A 

017600 


AAA AA / 

000004 






MOV 


0252K 


062766 


A AAAA T 

000002 


AAAAA / 

000004 




ADD 


025222 


AAC "JT? 

005737 


AAI TIT 

00'2l2 




1»: 


t ST 


C25226 


A A ^ T7C 

001375 








BNE 


025230 


010037 


AA1 TTZ 

001226 






MOV 


02523*> 


1 AC 7^ A 

105720 






T# . 

2$: 


TST8 


025236 


AA1 

001 376 








BNE 


0252»»0 


1^7 "7AA 

163700 


AA1 nz. 

001226 






SUB 


ATC / 

0252hA 

AlC 1/ ^ 

0252A6 


006200 








ASR 


A1 A AT 7 

01 003 ' 


AA1 T7A 

001 230 






MAI J 

MOV 


ATC OCT 

025252 


A1 0777 

01 3/ 


AAAAAy 

000004 


AA1 01 O 

0U1<:1^ 




MOV 


A^ C A 

025260 


AAAy 1 7 

000413 








BR 


025262 


A 1 7^ 7 7 


A A AAA/ 

OOOOUh 


AOC7A^ 

025306 


3» : 


MOV 


0252/^0 


AZ 17Z.Z. 

062766 


A AAA AT 

00000^ 


AAAAA / 

000004 




ADD 


0252/6 


A1 77/ Z 


1 7777Z. 

1 f rrro 






MOV 


025302 


/\Ay 77 7 


AT/ C7Z. 






1 C A 

JSR 


Alt 7AZ 

025306 


/\AAAAA 

000000 






4$: 


.WORD 


A 1C 71 A 








Ctf . 

55; 




A^C A 

025310 


1 AC 777 


ATC77Z. 

0253/6 




1 A^ 

10»: 


TST8 




001^16 








OP A 


ATC 71 ^ 

025316 


AAC 777 

00573/^ 


AA1 T7T 

001 232 






TST 




AA1 /IT 








A 

BEQ 


02532A 


AAC7T7 


AA1 01 O 

001212 




1 1>: 


T C T 

TST 


AT C 77A 

025330 

ATC 170 


AA1 77C 
001 3/5 








BNt 


A 1 7il.T7 


AAAAA/ 
0UUUU4 


AA 1 O 1 / 

001<:14 




UAk# 

MOV 


AOC T/ A 


f\L. O 7^ ^ 


AAAAA O 


AAAAA/ 

000004 




ADD 




AAC 077 


AA1 01 O 

0Ui<:12 






INC 


025352 


105037 


025376 




12$: 


CLR8 


025356 


105037 


025375 






CLR8 


025362 


105037 


025374 






CLR8 


AO? 


A1 Oi^A1 

Ul «:oUl 








MOV 


AOC 77A 


A1 OilAA 








MOV 


VCJJf C 


\J\J\JC\JI 








RTS 


02537A 


000 






SMFLG: 


• BYTE 


025375 


000 






SLFLG: 


.BYTE 


025376 


000 

000200 
000001 






$FfLG: 

APTSIZE 
APTENV 


.BYTE 
.EVEN 

= 200 
= 001 




000100 






AP T SPOOL = 100 




000040 






APT C SUP 


= 040 



H 8 

18:12:15 PAGE 14 



WUNICATIONS ROUTINE 



SEO C 



#1.$FFLG 
#1,$MFLG 
$ATYC 
#l.$fFLG 

RO,-(SP) 
RI.-(SP) 
SMFLG 
5$ 

#APTENV.$ENV 
3$ 

#APT SPOOL. SENt'M 
3$ 

a4(S3).R0 
*2,4(SP) 
SMSGTYPE 
IS 

RO.SMSGAD 

(RO)* 

2$ 

SMS GAD, RO 
RO 

RO.SMSGLGT 
#4, SMSGTYPE 
5S 

a4(SP).4S 

*2.4(SP) 

1 77776, -(SP) 

PC.STYPE 

0 

SFFLG 
12$ 
SENV 
12$ 

SMSGTYPE 
11$ 

a4(SP).$FATAL 

*2.4(SP) 

SMSGTYPE 

SFFLG 

SLFLG 

$MFLG 

(SP)*.R1 

(SP)*.RO 

PC 

0 

0 

0 



;;T0 
; ; TO 



REPORT 
TYPE A 



FATAL ERROR 
MESSAGE 



;;T0 ONLY REPORT FATAL ERFtQR 

.-PUSH RO ON STACK 

;PUSH R1 ON STACK 

.•SHOULD TYPE A MESSAGE 

;]F NOT: BR 

.•OPERATING UNDER APT? 

.•IF NOT: BR 

.-SHOULD SPOOL MESSAGFS? 

;IF NOT: BR 

;GET MESSAGE ADDR. 

;;8U«P RETURN ADDR, 
;SEE IF DONE W/ LAST XMISSION? 
;IF NOT: WAIT 
;PUT ADDR IN MAILBOX 
.•FIND END OF MESSAGE 



;Sie START OF MESSAGE 
.GET MESSAGE LN6TH IN WORDS 
;PUT LENGTH IN MAILBOX 
;TELL APT TO TAKE MSG. 

;;PUT MSG ADDR IN JSR LINKAGE 
;-8UriP RETURN ADDRESS 
;;PU5H 177776 ON STACK 
;;CALL TYPE MACRO 



SHOULD REPORT FATAL ERROR? 
IF NOT: BR 
RUNNING UNDER APT? 
IF NOT: BR 

FINISHED LAST MESSAGE? 
IF NOT: WAIT 
GET ERROR ♦ 

;;8UMP RETURN ADDR. 
TELL APT TO TAKE ERROR 
CLEAR FATAL FLAG 
CLEAR LOG FLAG 
CLEAR MESSAGE FLAG 
POP STACK INTO Rl 
POP STACK INTO RO 
RETURN 
MESSG. FLAG 
LOG FLAG 
FATAL FLAG 



^ZRHTBO RM05/^./2 DR CMPT TST 
POWER DOWN AND UP ROUTINES 



f^CRO VO^.OO 4-APR-81 18 



I 8 

V:1S PAGE IS 



.S8TTL POWER DDWN AND UP ROUTINES 



SEO 009<i' 



: POWER DOWN ROUTINE 

025AOO 012737 025552 000024 JPWRDN: MOV »/$lLLUP.a#PWRVEC 

025406 012737 000340 000026 MOV *340,a*PWRVEC*2 

0254 K 010046 MOV RO.-(SP) 

025416 010146 MOV RI.-(SP) 

025420 010246 MOV R2.-(SP) 

025422 010546 MOV R3,-(SP) 

025424 010446 MOV R4.-(SP) 

025426 010546 MOV R5,-(SP) 

025430 017746 153520 MOV aSWR.-(SP) 

025434 010637 025556 MOV SP.$S/'VR6 

025440 012737 025452 000024 MOV #$PWRUP,a#PWRVEC 

025446 000000 HALT 

025450 000776 BR .-2 ;;HANG UP 



;SET FOR FAST UP 
PPI0:7 

PUSH RO ON STACK 
PUSH R1 ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH R5 ON STACK 
PUSH ON STACK 

SAVE SP 
.-SET UP VECTOR 



.•POWER UP ROUT 



025452 


012737 


025552 


000024 


JPWRUP: 


MOV 


025460 


013706 


025556 






MOV 


025464 


005037 


025556 






CLR 


025470 


005257 


025556 




1$; 


INC 


025474 


001375 








BNE 


025476 


012677 
012605 


155452 






MO 4^ 


025502 








MOV 


025504 


012604 








MOV 


025506 


012603 








MOV 


025510 


012602 








MOV 


025512 


012601 








MOV 


025514 


012600 








MOV 


025516 


012737 


025400 


000024 




MOV 


025524 


012737 


000340 


000026 




MOV 


025532 


104401 








TYPE 


025534 


025560 






SPWNflG: 


.WORD 


025556 


042766 


000020 


000002 




BIC 


025544 


005037 


023616 






CLR 


025550 


000002 








RTl 


025552 


000000 






IILLUP: 


HALT 


025554 


000776 








BR 


025556 


000000 






$SAVR6: 


0 


025560 


015 


012 


120 


fPOWER: 


.ASCIZ 



INc 

#$ILLUP.a#PWRVEC 
$SAVR6.SP 
$SAVR6 
$SAVR6 
IS 

(SP)*,aswR 

(SP)+.R5 
(SP)>.R4 
<SP)*.R3 
(SP)*,R2 
{SP)+.R1 
(SP) >.R0 

«$PWRDN,airPWRVEC 
#340,arPWRVEC*2 ; 

SPOWER ; 
*20.2(SP) 
$T8I T 



.-2 

<15><12>' "POWER" 



.-SET FOR FAST DOWN 

GET SP 

WAIT LOOP FOR THE fTY 
WAIT FOR THE INC 
OF WORD 

POP STACK INTO aSWR 
POP STACK INTO R5 
POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO Rl 
POP STACK INTO RO 
;SET UP THE POWER DOWN VECTOR 
PRI0:7 
REPOKT THE POWER FAILURE 
POWER FAIL MESSAGE POINTER 
CLEAR '7" BIT 
CLEAR THE "T" BIT FLAG 

THE POWER UP SEQUENCE WAS STARTED 
BEFORE THE POWER DOWN WAS COMPLETE 
PUT THE SP HERE 



.EVEN 



J 8 

CZRMTBO RM05/5/2 DR CMPT TST MACRO V04.00 4-APR-81 18:12:15 PAGE 16 

BIMARY TO OCTAL (ASCII) AND TYPE SEO 0100 

.S8TTL BINARY TO OCTAL (ASCII) AND TYPE 

•iTHIS ROUTINE IS USED TO CHANGE A 16-8IT BINARY NUMSER TO A 6-DIGIT 
.••OCTAL (ASCII) NUMBER AND TYPE IT. 

.••$TYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

.••CALL: 

;• MOV NUM.-(SP) ; .-NUMBER TO BE TYPED 

;• TYPOS ;;CALL FOR TYPEOUT 

;• .BYTE N ;;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

;• .BYTE M / ;;M=1 OR 0 

;• ;;1=TYPE LEADING ZEROS 

;• ;;0=SUPPRESS LEADING ZEROS 

••STYPON ENTER HERE TO TYPE OUT WITH THf SAME PARAMETERS AS THE LAST 

;»$TYPOS OR STYPOC 
.••CALL: 

MOV NUM.-(SP) ; .-NUMBER TO BE TYPED 

;• TVPON ;;CALL FOR TYPEOUT 

• » 

••STYPOC ENTER HERE FOR TYPECUT OF A 16 BIT NUMBER 

;*CALL: 

;* MOV NUM.-(SP) ; .-NUMBER TO BE TYPED 

;• TYPOC .-.-CALL FOR TYPEOUT 



025570 


01 7646 


000000 




$ TYPOS: 


MOV 


a(SP).-(SP) 


.-PICKUP THE MODE 


02557A 


116637 


000001 


02601 3 




M0V8 


1(SP).$0FILL 


;LOAD ZERO FILL SWITCH 


025602 


112637 


026015 






M0V8 


(SP)+.$0M0DE*1 ; 


.-NIMBER OF DIGITS TO TYPE 


025606 


062716 


000002 






ADD 


*2.(SP) 


.ADJUST RETURN ADDRESS 


025612 


000406 








BR 


STYPON 




0256K 


112737 


000001 


026013 


STYPOC: 


M0V8 


#1,$0FILL 


.-SET THE ZERO FILL SWITCH 


025622 


112737 


000006 


026015 




M0V8 


#6,$0MO0E*1 


.-SET FOR SIX(6) DIGITS 


025630 


112737 


000005 


026012 


STYPON: 


M0V8 


*5.$0CNT 


.SET THE ITERATION COUNT 


025636 


010346 








MOV 


R3.-(SP) 


.-SAVE R3 


0256A0 


010446 








MOV 


R4,-(SP/ 


.SAVE R4 


025642 


010546 








MOV 


R5,-(SP) 


.SAVE R5 


025644 


113704 


026015 






M0V8 


$0M0DE*1,R4 


;6ET THE NLMBER OV DIGITS TO TYPE 


025650 


005404 








NEG 


R4 




025652 


062704 


000006 






ADD 


#6.R4 ; 


.-SUBTRACT IT FOR MAX. ALLOWED 


025656 


110437 


026014 






M0V8 


R4.$0MODE 


.-SAVE IT FOR USE 


025662 


113704 


026013 






M0V8 


$0FILL.R4 


.GET THE ZERO FILL SWITCH 


C25666 


016605 


C00012 






MOV 


12(SP).R5 


.-PICKUP THE INPUT NUMBER 


025672 


005003 








CLR 


R3 


.CLEAR THE OUTPUT WORD 
.•ROTATE MS8 INTO "C" 


025674 


006105 






IS: 


ROL 


R5 ; 


025676 


000404 








BR 


3$ 


;G0 DO MSB 


025700 


006105 






2$: 


ROL 


R5 ; 


.-FORM THIS DIGIT 


025702 


006105 








ROL 


R5 




025704 


006105 








ROL 


R5 




025706 


010503 








MOV 


R5.R3 




025710 


006103 






3$: 


ROL 


R3 ; 


.-GET LS8 OF THIS DIGIT 


025712 


105337 


026014 






DECB 


SOMODE 


.-TYPE THIS DIGIT? 


025716 


100016 








BPL 


7$ 


;8R IF NO 


025720 


042703 


1 77770 






81C 


#1 77770. R3 


.-GET RID OF JUNK 


025724 


001002 








BNE 


4$ ; 


.-TEST FOR 0 


025726 


005704 








TST 


R4 ; 


.-SUPPRESS THIS 0? 


025730 


001403 








BEO 


5$ 


;8R IF YES 


023732 


005204 






4$: 


INC 


R4 ; 


.-DON'T SUPPRESS ANYMORE O'S 



C7RMTB0 RM05/3/? DR CMPT rST f^CRO V04.00 A-APR-81 

BINARY TO OCTAL (ASCII) AND TYPE 

02573A 052703 000060 

025740 052703 000040 

025744 11033' 026010 

025750 104401 02601 C 

025754 105337 026012 

025760 003347 

025762 002402 

025764 005204 

025766 000744 

025770 012605 

025772 012604 

025774 012603 

025776 016666 000002 000004 

026004 012616 

026006 000002 

026010 000 

02601 1 000 
C26012 000 

02601 3 000 

026014 000000 
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SEQ 0101 





BIS 


#'0,R3 


5$: 


BIS 


»' ,R3 


M0V8 


R3,§$ 




TYPE 


.8$ 


7$: 


DECe 


$OCNT 




BGT 


2$ 




BLT 


6$ 




INC 


R4 




BR 


2$ 


6$: 


MOV 


(S'^) + ,R5 


MOV 


(SP) ♦.R4 




MOV, 


(SP)+,R3 




MOV 


2(SP).4(SP) 




MOV 


(SP)+.(SP) 




RTI 




8$: 


•BYTE 


0 




.BYTE 


0 


$OCNT : 


.BYTE 


0 


$OFJLL: 


.BYTE 


0 


SOMODE : 


.WORD 


0 



MAKE THIS DIGIT ASCII 

MAKE ASCII IF NOT ALREADY 

SAVE FOR TYPING 

60 TYPE THIS DIGIT 

COUNT BY 1 

BR IF MORE TO DO 

BR IF DONE 

INSURE LAST DIGIT ISN'T A BLANK 
GO DO THE LAST DIGIT 
RESTORE R5 
RESTORE R4 
RESTORE R3 

SET THE STACK FOR RETURNING 
RETURN 

STORAGE FOR ASCII DIGIT 

TERMINATOR FOR TYPE ROUTINE 

OCTAL DIGIT COUNTER 

ZERO FILL SWITCH 

NU«ER OF DIGITS TO TYPE 



* 
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CZRMTBO RM05/3/2 DR CMPT TST MACRO V04.00 4-APR-81 18:12:15 PAGE W 
CONVERT BIl^iARY TO DECIMAL AND TYPE ROUTJNE 



S£0 010< 



.S8TTL CONVERT BJfJARV TO DECIMAL AND TYPE ROUTINE 



026016 
026016 
026020 
026022 
02602A 
026026 
026030 
C2603A 
026040 
026042 
02o044 
026052 
02605A 
026060 
026064 
026066 
026072 
026074 
026076 
026100 
026102 
026104 
026106 
026110 
026112 
026114 
026116 
026120 
026126 
0261 32 
026136 
026140 
026142 
026146 
026150 
026152 
026154 
026156 
026160 
026162 
026170 
026172 
0261 74 
026176 
026200 



010046 
010146 
010246 
010346 
010546 
012746 
016605 
100004 
005405 
112766 
005000 
0127C3 
112723 
005002 
016001 
160105 
002402 
005202 
000774 
060105 
005702 
001002 
105716 
100407 
106316 
103003 
116663 
052702 
052702 
110223 
005720 
020027 
002746 
003002 
010502 
000764 
105726 
100003 
116663 
105013 
012605 
012603 
012602 
012601 



020200 
000020 



000055 000001 



026232 
000040 

026222 



•THIS ROUTINE IS USED TO CHAMGE A 16-8IT BINARY NUMBER TO A 5-DIGIT 
•SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
•NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
•BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
•REPLACED WITH SPACES. 



•CALL: 



STYPDS: 



000001 
000060 
000040 



000010 



1 77 m 



1$: 



2$: 
3$: 



4$: 



5$: 



6S: 
7$: 



1 77777 1 77776 



8$: 



9$: 



MOV NUM,-(SP) 
TYPDS 



MOV RO.-(SP) 

MOV RI.-(SP) 

MOV R2,-(SP) 

MOV R3.-(SP) 

MOV R5,-(SP) 

MOV *20200,-(SP) 

MOV 20(SP),R5 

BPL 1$ 

NEG R5 

M0V8 #"-J(SP) 

CLR RO 

MOV nD8LK,R3 

M0V8 *• ,(R3)* 

CLR R2 

MOV $DT8L(R0).R1 

SUB R1.R5 

BLT 4$ 

INC R2 

BR 3$ 

ADD R1,R5 

TST R2 

BNE 5$ 

TST8 (SP) 

BNI 7S 

ASL8 (SP) 

BCC 6S 

MOVE 1(SP).-1(RJ) 

BIS f 0.R2 

BIS .R2 

M0V8 R2.(R3)* 

TST (R0)+ 

CMP R0,#10 

BLT 2$ 

BGT 8$ 

MOV R5 .R2 

BR 6$ 

TST8 (SP)+ 

BPL 9$ 

M0V8 -1(SP),-2(R3) 

CLR8 (R3) 

MOV (SP)*.R5 

MOV (SP)+.R? 

MOV (SP)*.R2 

MOV (SP)+.R1 



;;PUT THE BINARY NiJMBfcP ON THE STACK 
;;G0 TO THE ROUTINE 



PUSH RO ON STACK 

PUSH R1 ON STACK 

PUSH R2 ON STACK 

PUSH R3 ON STACK 

PUSH R5 ON STACK 

SET BLANK SWITCH AND SIGN 

GET THE INPUT NUMBER 

8R IF INPUT IS POS. 

MAKE THE BINARY NLFSER POS. 

MAKE THE ASCII NlfBER NEG. 

ZERO THE CONSTAfJTS INDEX 

SETUP THE OUTPUT POINTER 

SET THE FIRST CHARACTER TO A BLANK 

CLEAR THE PCD NlfCER 

GEf THE CONSTANT 

FORM THIS BCD DJ6JT 

BR IF DONE 

INCREASE THE BCD DIGIT BY 1 

ADD BACK THE CONSTANT 

CHECK IF BCD DIGIT=0 

"^ALL THROU&S If 0 

STILL DOING Lt'a>JNG O'S? 

BR IF YES 

MSD? 

BR IF NO 

YES— SET THE SIGN 

MAKE THE BCD DIGIT ASCII 

MAKE IT A SPACE IF NOT ALREADY A DIGIT 

PUT THJS CHARACTER IN THE OUTPUT BUFFER 

JUST INCREMENTING 

CHECK THE TABLE INDEX 

GO DO THE NEXT DIGIT 

GO TO EXIT 

GET THE LSD 

60 CHANGE TO ASCII 

WAS THE LSD THE FIRST NON-ZERC 

BR IF NO 

YES— SET THE SIGN FOR TYPING 

SET THE TERMINATOR 

POP STACK INTO R5 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO R1 



C2RMTB0 RM05/3/2 DR CWT TST dACRO V04.00 
CONVERT BIHARV TO DECIMAL AND TYPE ROUTINE 



026202 
02620/. 
026210 
026216 
026220 
026222 
026224 
026226 
026230 
026232 



012600 
104401 
016666 
012616 
000002 
023420 
001750 
000144 
00001 2 



026232 
000002 



000004 



SDTBL; 



SDBLK; 



4-APR-81 



MOV 

TYPE 

MOV 

MOV 

RTJ 

10000. 

1000. 

100. 

10. 

.BLKW 
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(SP)*.RO ;;P0P STACK INTO RO 

,$D8LK ;;N0W TYPE THE NUMBER 

2(SP),4(SP) .-.-ADJUST THE STACK 
(SP)*,(SP) 

.-.-RETURN TO USER 



CZRMTBO RM05/5/2 DR CMPT TST 
TTY IMPUT RCXJTINE 



N 8 

WACRO y04.00 4-APR-81 18:12:15 PAGE 18 
.S8TTL TTr INPUT ROUTINE 
'.ENABL LSS 



SEO 01(K 



0262A2 


022757 


0001 76 


001154 


SCIC5WR: 


CMP 


026250 


001074 








BNE 


026252 


105777 


152702 






TST8 


026256 


100071 








BPL 






1 S?^^7ft 

1 JCKjr KJ 








02626A 


042716 


1 77600 






BIC 


026270 


022726 


000007 






CMP 


0262 74 


001062 








BNE 


026276 


123727 


001150 


000001 




CMP8 


C26304 


001456 








BEQ 


026506 


104401 


026661 






TYPE 


026312 


104401 


026666 




$GTSUR: 


TYPE 


026316 


013746 


000176 






MOV 


026322 


104402 








TYPOf 


026324 


104401 


026677 






TYPE 


026330 


005046 






19$: 


CLR 


026332 


005046 








CLR 


C2633A 


105777 


1 52620 




7$: 


TST8 


0263A0 


100375 








BPL 


0263A2 


1 1 7746 


152614 






MOVB 


0263A6 


042716 


1 77600 






BIC 



.-•SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
.••ROUTINE IS ENTERED FROM THE TRAP HANDLER. AND WILL 
.••SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
.••WHEN OPERATING IN TTY FLAG MODE. 



/rSWREG.SWR 
15$ 
S$TKS 
15$ 

8$T»C8.-(SP) 
/r*C177.(SP) 
#7,(SP)* 
15$ 

$AUT08.*1 
15$ 

.$CNTLG 

.$MSWR 

SUREG.-(SP) 

,$MNEW 

-(SP) 
-(SP) 
a$TKS 
7$ 

a$TK8.-(SP) 
/r*Cl 77. (SP) 



L> THE SOFT-SWR SELECTED? 
BRANCH IF NO 
CHAR THER;? 

IF NO. DON'T WAIT AROUND 

SAVE THE CHAR 

STRIP-OFF THE ASCII 

IS IT A- CONTROL G? 

NO. RETUf<N TO USER 

ARE WE RUNNING IN AUTO-MODE? 

BRANCH IF YES 

ECHO THE CONTROL-G CG) 

TYPE CURRENT CONTENTS 

SAVE SWREG FOR TYPE OUT 

GO TYPE— OCTAL ASCII (ALL DIGITS) 

PROMPT FOR NEW ;>WR 

CLEAR COUNTER 

THE NEW SWR 

CHAR THERE? 

IF NOT TRY AGAIN 



;;PICK 
;;MAKE 



UP CHAR 
IT 7-8IT 



ASCII 



026352 
026356 
026360 
026364 
026370 



021627 
001005 
104401 
062706 
000757 



000025 

026654 
000006 



9$: 



20$: 



CMP 

BNE 

TYPE 

ADD 

BR 



(SP).*25 
10$ 

.$CNTLU 

#6.SP 

19$ 



IS IT A CONTROL -U? 
BRANCH IF NOT 
YES. ECHO CONTROL -U CU) 
IGNORE PREVIOUS INPUT 
LET'S TRY IT AGAIN 



026372 
026376 
026400 
026404 
026406 
026414 
026420 
026424 
026432 
026434 
026442 
026444 
026450 
026454 



021627 
001022 
005766 
001403 
016677 
062706 
104401 
123727 
001003 
012777 
000002 
004737 
021627 
002420 



000015 

000004 

000002 
000006 
001207 
001151 

000100 

025010 
000060 



152540 

000001 
152516 



10$: 



11$: 
14$: 



15$: 
16$; 



CMP 

BNE 

TST 

BEQ 

MOV 

ADD 

TYPE 

CMP8 

BNE 

MOV 

RTI 

JSR 

CMP 

BLT 



{SP).#15 
16$ 
4(SP) 
11$ 

2(SP).8SWR 

*6.SP 

.$CRLF 

$INTAG,*1 

15$ 

/rlOO.a$TKS 

PC.$TVPfC 

(SP).*60 

18$ 



IS IT A <CR>? 
BRANCH IF NO 

YES. IS IT THE FIRST CHAR"* 

BRANCH IF YES 

SAVE NEW SWR 

CLEAR UP STACK 

ECHO <CR> AND <LF> 

RE-ENABLE TTY KBD INTERRL^TS'' 

BRANCH IF NOT 

RE -ENABLE TIY KBD INTERRUPTS 

RETURN 

ECHO CHAR 

CHAR < 0? 

BRANCH IF YES 



CZWbO f<n05/3/2 W C«PT TST 
TTY INPUT ROUTINE 



•lACRO VW.OO 



B 9 

4->W»R-81 18:12:15 PAGE 18-1 



SEO 0105 



0264 S6 
02646? 
026464 
026470 
026474 
C26476 
026500 
026502 
026504 
026510 
026514 
026516 
026522 



021627 
003015 
042726 
005766 
001403 
006316 
006316 
006316 
005266 
056616 
000707 
104401 
000720 



00006^ 

000060 
000002 



000002 
177776 

001206 





CHP 


(SP),#67 




BGT 


18S 




BIC 


#60, (SP/* 




TST 


2{SP) 




BEQ 


17$ 




ASL 


(SP) 




ASL 


(SP) 




ASL 


(SP) 


17$: 


INC 


2(SP) 




BIS 


-2vSP).(SP) 




BR 


7$ 


18S: 


TYPE 


,$OUES 




BR 


20$ 


.DSABL 


LS8 




.•♦THJS 


ROUTINE 


WJLL INPUT A 


;*CALL 








RDCHR 




• * 


RETURN 


HERE 



;;CMAft > 7? 

; .-BRANCH IF rES 

;;STRIP-OFF ASCII 

;;1S THIS THE FIRST CHAR 

; .-BRANCH IF YES 

;.-N0. SHIFT PRESENT 

CHAR OVER TO HAKE 
ROOn FOR NEW ONE. 

.-.-KEEP COUNT OF CHAR 

;.-SET IN NEW CHAR 

.-.■GET THE NEXT ONE 

;;TyPE ?<CR><LF> 

.•.-SIMULATE CONTROL-U 



026524 


011646 






tRDCHR: 


MOV 


026526 


016666 


000004 


000002 




MOV 


026534 


105777 


152420 




1$: 


TST8 


026540 


100375 








BPL 


026542 


117766 


152414 


000004 




MOVB 


026550 


042766 


1 77600 


000004 




BIC 


026556 


026627 


000004 


000023 




CMP 


02^.564 


001013 








6NE 


02b566 


105777 


152366 




2$: 


TST6 


026572 


100375 








BPL 


026574 


1 1 7746 


1 52362 






MOVB 


026600 


042716 


177600 






BIC 


026604 


022627 


-^00021 






CMP 


026610 


001366 








BNE 


026612 


000750 








BR 


026614 


026627 


000004 


000021 


3$: 


CMP 


026622 


001 744 








BEO 


02662^' 


026627 


000004 


000140 




CMP 


026632 


002407 








BLT 


026634 


026627 


000004 


0001 75 




CMP 


026642 


003003 








BGT 


026644 


042766 


000040 


000004 


4$: 


BIC 


026652 


000002 






RTI 


026654 


136 


125 


015 


$CNTLU: 


.ASCJZ 


026661 


136 


107 


015 


$CNTLG: 


.ASCIZ 


026666 


015 


012 


123 


snswR: 


.ASCIZ 


026677 


040 


040 


116 


$nNEW: 


.ASCIZ 



(SP) .-(SP) 

4(SP).2(SP) 

a$TKS 

1$ 

a$TKB,4(SP) 
#''C<177>.4(SP) 
4(SP).#23 
3$ 

SSTKS 
2$ 

a$TK8,-(SP) 

#*C1 77. (SP) 

(SP)*.#21 

2$ 

1$ 

4(SP) .#$XON 
1$ 

4(SP).#140 
4$ 

4(SP).#175 
4$ 

#40.4(SP) 

/*U/<15><12> 
/*6/<15><12> 
<15><12>/SWR = 
/ NEW = / 



.•INPUT A SINGLE CHARACTER FROM THE TTY 
.-CHARACTER IS ON THE STACK 
;WITH PARITY BIT STRIPPED OFF 



;;PUSH DOWN THE PC 

;;SAVE THE PS 

;;WAIT fOR 

;;A CHARACTER 

:;READ THE TTY 

;;6ET RID OF JUNK IF ANY 

;;IS IT A CONTROL-S? 

; .-BRANCH IF NO 

;;WAIT FOR A CHARACTER 

;;LOOP UNTIL ITS THERE 

;;GET CHARACTER 

;;MAKE IT 7-61 T ASCII 

;;IS IT A CONTROL -0? 

;;JF NOT DISCARD IT 

;;YES. RESUME 

;;IS IT A RANDOM XON? 

; .-BRANCH IF YES 

;;IS IT UPPER CASE? 

; .-BRANCH IF YES 

;;IS IT A SPECIAL CHAR? 

; .-BRANCH IF YES 

.-.-MAKE IT UPPER CASE 

;;G0 BACK TO USER 

;; CONTROL 'U" 

.-.CONTROL "G" 



CZRMTBO RM05/5/2 DR CMPT TST tWCRO VC^.OO 4-APR-81 
SAVE AND RESTORE P0-R5 ROUTINES 
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.S8TTL SAVE AND RESTORE R0-R5 ROUTINES 



SEO 0106 



026710 

026710 0100A6 

C26712 010K6 

026714 0102A6 

026716 010346 

026720 010446 

026722 010546 

026724 016646 000022 

026730 016646 000022 

026734 016646 C00022 

026740 016646 000022 

026744 000002 



SAVE R0-R5 
CALL: 

SAVREG 

UPON RETURN FROM $SA»/REG THE STACK WILL LOOK LIKE; 



TOP (♦16) 

♦2 (♦IB) 

♦4 R5 

♦6 R4 

♦8 R3 

♦ 10 R2 

♦12 — R1 
♦14 RO 



SSAVREG: 



MOV 


RO.-(SP) 


;;PUSH RO 


ON 


STACK 


MOV 


RI.-(SP) 


;;PUSH R1 


ON 


STACK 


MOV 


R2,-(SP) 


;;PUSH R2 


ON 


STACK 


MOV 


R3.-(SP) 


;;PUSH R3 


ON 


STACK 


MOV 


R4.-(SP) 


;;PUSH R4 


ON 


STACK 


MOV 


R5.-(SP) 


;;PUSH R5 


ON 


STACK 


MOV 


22(SP)."(SP) 


;;SAVE PS 
;;SAVE PC 


Of 


MAJN FLOW 


MOV 


22(SP),-(SP) 


OF 


MAIN FLOW 


MOV 


22(SP).-(SP) 


;;SAVE PS 


OF 


CALL 


MOV 


22(SP).-(SP) 


;;SAVE PC 


OF 


CALL 


RTI 











•RESTORE R0-R5 
•CALL: 









;• RESREG 




026746 






SRESREG: 


(SP)^.22<SP) 


026746 


012666 


000022 


MOV 


026752 


012666 


000022 


MOV 


(SP)*,22(SP) 


026756 


012666 


000022 


MOV 


(SP)*.22(SP) 


026762 


012666 


000022 


MOV 


(SP)+,22(SP) 


026766 


012605 




MOV 


(SP)+.R5 


026770 


012604 




MOV 


(SP)+,R4 


026772 


012603 




MOV 


(SP;^.R3 


026774 


012602 




MOV 


(SP)+,R2 


026776 


012601 




MOV 


(SP)*,R1 


027000 


012600 




MOV 


CSP>^.RO 


027002 


000002 




RTI 





; .-RESTORE PC OF CALL 
; .RESTORE PS OF CALL 
; .-RESTORE PC OF MAIN FLOW 
; .-RESTORE PS OF MAIN FLOW 
;;POP STACK INTO R5 
;;POP STACK INTO R4 
;;POP STACK INTO R3 
;;POP STACK INTO R2 
;;POP STACK INTO Rl 
;;POP STACK INTO RO 
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.S8TTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 



•THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
•DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NIMBER MUST BE 
•POSITIVE. 
•CALL 

• MOV #PNTR,-(SP) ; .-POINTER TO LOW WORD OF BINARY NUMBER 

• JSR PC,a*$DB2D 

• RETURN ;;THE FIRST ADDRESS OF ASCI7 

;;IS ON THE STACK 



0270OA 


104412 




027006 


A1 Z ^ AT 

01 6602 


AAAAA '5 

000002 


027012 


012700 


02' '64 


027016 


A1 A<*^Z. 


AAAAAO 


027022 


A1 OOA1 

01 2201 




02702A 


A^ T^AI 

012202 




C27026 


012^ 5f 


AOAA1 O 

OL/001 c 


0270 5<i 


A1 TyA/ 


A071 1 / 

Oc' 1 14 


0270A0 


A1 07AC 


A071 1 

Ocf\\b 




AAC AAT 

005003 




Ocf\J**o 


16140 1 






AAC^ AO 

005602 






1^1 CAO 

1 61 3U£ 






AAOy AO 

0024U*: 




ATTACH 


00!)cJ5 




AT7A^ A 


AAA "770 

000 f Id 




02f0t2 


AZ. O/ A 1 

062401 




02706'* 


AACCAO 




02 '066 


AXO/ AO 

0624 U<: 




OcfOfO 


AOOC OC 




027072 


AC 07A1 


0UUU5U 


OZfOro 


1 1 A10A 

1 1 03^0 




AT71 AA 

027100 


005 5^ r 




02/^10*: 


AAAAAA 

oooouo 






nni ^S7 




027106 


105020 




0271 10 


104413 




027112 


000207 




0271 U 


145000 




027116 


035632 




027120 


160400 




027122 


002765 




027124 


113200 




027126 


000230 




027130 


041100 




027132 


000017 




027134 


103240 




027136 


000001 




027U0 


023420 




027U2 


000000 




027144 


001750 




027146 


000000 




027150 


000144 




027152 


000000 





$DB2D: SAVREG 
MOV 
MOV 
MQV 
MOV 
MOV 
MOV 
MOV 
MOV 

1$: CLR 
2S: sue 

sec 
sue 

BLT 
INC 
BR 

3S: ADD 
ADC 
ADD 
CMP 
BIS 
M0V8 
DEC 

4S: .WORD 
BNE 
CLR8 
RESREG 
RTS 

tTNPWR: 145000 
35632 
160400 
2765 
113200 
230 

041100 
17 

103240 
1 

23420 
0 

1750 
0 

144 

0 



2(SP).R2 
#$DECVL.RO 

ro.2(i:p) 

(R2)*,R1 

tR2)*.R2 

#10., 4S 

#$TNPWR,R4 

#$TNPWR+2,R5 

R3 

(R4J.R1 
R2 

(R5).R2 
3S 
R3 
2% 

(R4)*,R1 
R2 

(R4)*.R2 

(R5)*,(R5)* 

#'0,.73 

R3.(R0)* 

(PC)* 

0 

1$ 

(RO)* 
PC 



;;SAVE REGISTERS 

;;PICKUP THE DATA POINTER 

;;GET ADDRESS OF "JDECVL ' STRING 

;;PUT ADDRESS OF ASCIZ STRING ON STACK 

; .PICKUP THE BINARY NUrBER 

;;SET UP TO DO 10 CONVERSIONS 
; .ADDRESS OF TEN POWER 

;; CLEAR PARTIAL 
;;SLeTRACT TEN POWER 



;;8R IF TEN POWER TO LARGE 
;;ADD 1 TO PARTIAL 
;;LOOP 

;;RESTORE SUBTRACTED VALUE 



;;MOVE TO NEXT TEN POWER 
CHANGE PARTIAL TO ASCII 
.•SAVE IT 
;;DONE? 

;;8R IF NO 

TERMINATOR 
; .-RESTORE REGISTERS 
;; RE TURN 
;;1.0E09 

;;1.0E08 

;;1.0E07 

:;1.0E06 

;;1.0E05 

;;1.0E04 

;;1.0E03 

;;1.0E02 
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DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE ^JtO JlOB 

027154 ,X)00''2 12 ;;1.0E01 

027156 000000 0 

027160 000001 1 ;;1.0EOO 

027162 000000 $DECVL: .8LK.8 12. .-.-RESERVE STORAGE fOR ASflZ STRING 



! 
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DOUBLE .FNGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
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SEO 0109 



.S8TTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 



•THIS ROUTINE WILL CONVERT A 52-8IT UNSIGNED BINARY NUMBER TO AN 

•UNSIGNED OCTAL ASC IZ NUMBER. 

•CALL 
• 



MOV 

JSR 

RETURN 



#PNTR,-(SP) 
PC,aiViDB20 



; .-POINTER fO LOW WORD OF BINARY NUMBER 
;;CALL THE ROUTINE 

;;THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 



027200 
027202 
027206 
027212 
027216 
027222 
027224 
027226 
C27230 
027232 
02723A 
027236 
0272A0 
0272^*2 
0272A4 
027250 
027252 
02725A 
027256 
027260 
027262 
027264 
027266 
027270 
027272 
027271. 
027300 
027302 



104412 
016601 
012705 
012704 
012703 
01C100 
012101 
005002 
110245 
010002 
005304 
003007 
001405 
005205 
010566 
104413 
000207 
006203 
006001 
006000 
006001 
006000 
006001 
006000 
040302 
062702 
000753 



000002 
027317 

000014 
1 77770 



$DB20: 



1$: 



000002 



2S: 
3$: 



000060 



tOCT)/L 



SAVREG 

MOV 2(SP;.R1 

MOV #$OCTVL 0 3..R5 

MOV #12., R4 

MOV #*C7.R3 

MOV (R1)*,R0 

MOV (R1)»,R1 

CLR R2 

MOVB R2.-(R5) 

MOV R0.R2 

DEC R4 

BG' 3$ 

BEG 2S 

INC R5 

MOV R5.2(SP) 

RESREG 

RTS PC 

ASR R3 

ROR R1 

ROR RO 

ROR Rl 

ROR RO 

ROR Rl 

ROR RO 

BIC R3,R2 

ADD #'0.R2 

BR IS 

.8LK8 14. 



ISAVE ALL REGISTERS 
PICKUP THE POINTER TO .OW WORD 
POINTER TO DATA TABLE 
DO ELEVEN CHARACTERS 
MASK 

LOWER WORD 
HIGH WORD 
TERMINATOR 

PUT CHARACTER IN DATA TABLE 

GET THIS DIGIT 

COUNT THIS CHARACTER 

BR IF NOT THE LAST DIGIT 

BR If IT IS THE LAST DIGIT 

ALL DIGITS DONE-ADJUST POINTER FOR FIRST 

ASCIZ CHAR, ft PUT IT ON THE iTACK 

RES'TRE ALL REGISTERS 

RETURN TO USER 

POSITION THE MASK FOR THE LAST DIGIT 
POSITION THE BINARY NUMBER FOR 
THE NEXT OCTAL DIGIT 



MASK OUT ALL JLNK 

MAKE THIS CHAR. ASCII 

GO PUT IT IN THE DATA TABLE 

RESERVE DATA TABLE 



^COPk" HANDLER ROU'INE 
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.«aTTL SCOPE HANDLER ROUTINE 



SEO 0110 



027320 
027320 
027322 
027330 
027332 
C27336 



0273A0 
027344 
027352 
027356 
027362 
027364 
027366 
027372 
027374 
027374 
027402 
027404 
027412 
027414 
027420 
027422 
027430 
027432 
027436 
027444 
027-,52 
027454 
027462 
027466 
027470 

027474 
027502 
027504 
027512 
027514 
027522 
027526 
027532 



104407 
032777 
001402 
000137 



027336 000416 



013746 
012737 
005737 
012637 
000544 
022626 
012637 
000504 

032777 
001404 
127737 
001546 
105737 
001502 
022737 
001455 
013746 
012737 
013737 
000406 
012737 
012716 
000002 
012637 

022737 
001430 
032737 
001424 
042737 
01 5746 
01 7646 
012737 



040000 
027730 



000004 
027364 
1 77060 
000004 



C00004 

000400 

151544 

001117 

M7777 

000004 
027454 
}777(it 

^7,777 
027U70 

000004 

1 77777 

000001 

000001 
001154 
000000 
000176 



000004 



151552 
001116 

024252 



000004 
024252 



024252 
024252 
1 77766 

001154 



•THIS 

•AND 

•AND 

•THE 

•SW14 

•swn 

•SW09 
• SU08 
•CALL 



ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

LOAD THE TEST NUMBER (STSTNM) INTO THE DISPLAY REG. (DISPLAr^7:0>) 

LOAD THE ERROR FLAG (SEHFLG) INTO DISPLAY<1 5 :08> 
SWITCH OPTIONS PROVIDED BV THii ROUTINE ARE: 
=1 LOOP ON TEST 

=1 INHIBIT ITERATIONS 

1 LOOP ON ERROR 

1 LOOP ON TEST IN SWR<7:0> 



SCOPE 



;;SC0OE=I0T 



151624 1$: 



024252 2000S 



$SC0PE: 

CKSWR 
BIT 
BEO 
JMP 

9$: 

;#*###START OF 

SXTSTR: BR 

MOV 
MOV 
TST 
MOV 
BR 

5$: CMP 
MOV 
BR 

6$:;*####cN0 OF 

BIT 
BEO 
CMP8 
BEO 
TST8 
BEO 
CMP 
BEO 
MOV 
MOV 
MOV 
BR 
MOV 
MOV 
RTI 

2001$: MOV 



2$ 



«8ITlH,aSWR 
9$ 

SOVER 

CODE FOR THE XOR 
6S 

a#ERRVEC,-(SP) 

#5S,a#ERRVEC 

d#l 77060 

(SP) ♦.arERRVEC 

SSVLAD 

(SP)*,(SP)* 

(SP)*,a#ERRVEC 

7$ 

CODE FOR THE XOR 

«8IT08.aSUR 

2$ 

aSUR,$TSTNn 
SOVER 
SERFLG 
3$ 

#-1 .CPSAVE 

ERRVEC.-(SP) 
#2000$,ERRVEC 
177766, CPSAVE 
200 IS 

CPSAVE 
*2001$,(SP) 



TEST FOR CHANGE IN SOFT-SWR 

LOOP ON PRESENT TEST? 

NO IF SW14=0 

JUMP OVER SCOPE ROUTINE 



TESTER##### 

;IF RUNNING ON THE "XOR" TESTER CHANGE 
.-THIS INSTRUCTION TO A '>lOP" (NOP=240) 
.•SAVE THE CONTENTS OF THE ERROR VECTOR 
;SET FOR TIMEOUT 
.•TIME OUT ON XOR? 
.RESTORE THE ERROR VECTOR 
;G0 TO THE NEXT TEST 
.•CLEAR THE STACK AFTER A TIME OUT 
.•RESTORE THE ERROR VECTOR 
.-LOOP ON THE PRESENT TEST 

;LOOP ON SPEC. TEST? 
;8R IF NO 

;0N THE RIGHT TEST? SUR<7:0> 
;8R IF YES 

;HAS AN ERROR OCCURRED? 
*8R IF NO 

•SEE IF TIMEOUT WAS PREVIOUSLY RECORDtD 
.•KICK AROUND ROUTINE IF SO 
.•SAVE CONTENTS OF ERROR VECTOR 
.•SETUP 'TRAP* RETURN ADDRESS 
.-MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 

;;SET CPU ERROR REGISTER TIMEOUT INDICATOR 
;; SETUP RETUflN ADDRESS 



(SP)*,ERRVEC ; .-RESTORE CONTENTS OF ERROR VECTOR 



2002S: 



CMP 
BEO 
BIT 
BEG 
BIC 
MOV 
MOV 
MOV 



#-1. CPSAVE 
2003$ 

*8 1 TOO. CPS AVE 
2003$ 

#81 TOO. 177766 
SWF<.-(SP) 
a(SP).-(3P) 
#176.SUR 



.•SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDKATION 
•BRANCH IF SO 

•SEE IF THE POWER MONITOR BIT IS ON 

;8RANCH TO CONTINUE ROUTINE IF CLEAR 

; CLEAR THE BIT FOUND TO BE SET 

.-SAVE SWR ADDRESS 

.•SAVE SWR VALUE 

;GET SOFTWARE SWR ADDRESS 
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SCOPE HANDLER ROUTINE 










0275A0 


011t)77 


1 ^1 A 1 O 
1 J 1 1 U 










0<*2777 




151402 




nir 
□i L 


027552 


104177 










0275SA 


012676 








nuv 


027560 


012657 


nni 1 






nu v 


02756^ 






nni 117 

III' 


Cvv 39 • 




02 -'56^ 


123737 


nm 1 ^1 

UU I 1 J 1 






027572 


101015 








rm I 
oni 


027574 


032777 


nm r»nn 


1 SI xs? 




□ i 1 


027602 


001404 








DC w 


027604 


013737 


om 1 ?4 


nni 1 p? 


7* • 

* * • 




027612 


000446 










0276K 


105037 


nni 117 

\J\J 1 1 1 r 






n RR 


027620 


005037 


nni 1 7f% 

\J\J 1 1 r O 






n R 


027624 


000415 








RR 


027626 


032777 




1 SI ^?n 




RT T 


027634 


001011 








RNF 


G27636 


0C5737 


nni??n 






TST 


027642 


001406 








RPO 
DC W 


027644 


005237 


nni i?o 








027650 


023737 


001 1 7ft 
yj\^ 1 1 r o 


nni 1 ■'0 






027656 


002024 










027660 


012737 


nnnnni 


nni 1 ?n 

1 1 


1 1 • 


Mnv 


027666 


013737 




nni 1 7^ 

1 1 f u 




MOV 


027674 


1052V 


nni 1 1 A 

\J\J 1 1 1 o 






i 'HVO 


027700 


113737 


nni 1 1^1 


nni?i^ 




r\\J VO 


027706 


011637 


nm 1 ?7 






MOV 


027712 


011637 


nni 1 ?4 








027716 


005037 


nni ?nn 








027722 


112737 


000001 

www 1 


001131 




liOVB 


027730 


013777 


001116 


151220 


tOVER: 


WV 


027736 


013716 


001122 






MOV 


0277t,2 


000002 








RTI 


0277U 


003720 






SMXCNT ; 


2000 
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SEO Oil' 



(SP).iSWR 

«8iT09,aSWR 

177 

(SP)*,a(SP) 
(SP)*.SWR 

SERMAX.SERFLG 
3$ 

#8JT09.aSWR 
4S 

JLPERR.SLPADR 

SOVER 

SERFLG , 

$T]«ES 

1$ 

#eiTii ,aswR 
1$ 

$PASS 
IS 

$JCNT 

$TIMES,$ICNT 

SOVER 

#1,$ICNT 

SMXCNT.STIMES 

STSTNH 

$TSTNM,$TESTN 

(SP),$LPADR 

(SP).$LPERR 

$E SCAPE 

#1 ,$ERMAX 

STSTNM.aOISPLAV 

$LPADR,(SP) 



GET CURRENT SWR VALUE 

DON'T ALLOW LOOP ON ERROR ON THIS ERROR 
CALL SPECIAL POWER FAIL BIT ERROR CALL 
RESTORE SWR TO ORIGINAL VALUE 
RESTORE SWR ADDRESS 

MAX. ERRORS FOR THIS TEST OCCURRED? 

8R IF NO 

LOOP ON ERROR? 

8R IF NO 

SET LOOP ADDRESS TO LAST SCOPE 
ZERO THE ERROR FLAG 

CLEAR THE NUMBER OF ITERAiIONS TO MAKE 
ESCAPE TO THE NEXT TEST 
INHIBIT ITERATIONS? 
BR IF YES 

IF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
INCREMENT ITERATION COUNT 
CHECK Tr-5 NLMBER OF ITERATIONS MADE 
BR IF MORE ITERATION REQUIRED 
REINITIALIZE THE ITERATION COUNTER 
SET NUMBER OF ITERATIONS TO DO 
COUNT TEST NIWBERS 
SET TEST NUMBER IN APT MAILBOX 
SAVE SCOPE LOOP ADDRESS 
SAVE ERROR LOOP ADDRESS 
CLEAR THE ESCAPE FROM ERROR ADDRESS 
ONLY ALLOW ONE(I) ERROR ON NEXT TEST 
DISPLAY TEST NtfBER 
FUDGE RETURN ADDRESS 
FIXES PS 

MAX. NUMBER OF ITERATIONS 



^ZRMTBO RM05/3/2 DR CMPT TST 
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SEO 01 



.S8TTL ROUTINE TO SIZE MEMt .r 



•CALL 



PC.SSIZE 



JSfi 

RE TURN 

;-»SLSTAD WILL CONTAIN THE LAST AVAILABLE MEMORr LOCATION 











t^I?F- MOV 




01 ni Lf\ 






MOV 


nP7'7'^? 


V 1 J f HO 


nnni i^^ 




MOV 


nP77';A 


\J \ Jt HO 


nnni i^. 




MOV 


n?77^? 


ni ?7^7 


nnni ^f, 


0001 ■'4 


MOV 


\JC I 1 1 \J 


ni ?7^7 


oonno/" 

\J\J\J\J\JC 


000 T" 6 


MOV 




ni '^7Lft 


000004 




MOV 




ni '^7Cfi 

\J \ Jf HO 


000006 




MOV 




niOAnn 






MOV 

■ -^ET THE ERR) 










'RAP 


C3001? 
0^001 ^ 




0C0006 




MOV 


012737 


030036 


0C0004 


MOV 


03002A 


0''2701 


020000 




MOV 


030030 


005711 






It: TST 


030032 


005721 






TST 


03003A 


C00775 






BR 


030036 


162701 


000002 




2$: sue 


030042 


010006 






MOV 


0300A4 


012637 


000006 




MOV 


030050 


012637 


000004 




MOV 


03005A 


012637 


000116 




MOV 


030060 


012637 


000114 




MOV 


030064 


010137 


030076 




MOV 


030070 


012601 






MOV 


030072 


012600 






MOV 


030074 


000207 






RTS 


030076 


000000 






$lSTAD: .WORD 



;;SAVE RO ON THE <" AC< 
;;SAVE R1 ON THE STACK 
;;SAVE MEMORY ERROR VECTOR PS & PC 

;; IGNORE PARITY ERRORS WHILE SIZING 



RO.-(SP) 
R1 .-(SP) 
a*114.-(SP) 

#116,9*114 
#RTI.a#116 

a*ERRVEC,-(SP) ;;SAVE PRESENT ERROR VECTOR PS ft PC 
i*ERRVEC«-2.-(SP) 

SP.RO ;;SAVE THE STACK POINTER 

: PS TO THE PRESENT PS 

.-.-PUSH OLD PSW AND PC ON STACK 
(SP)*.a*ERRVEC*2 ;;SAVE THE PSW IN a#ERRVEC»2 

#2t,a#ERRVEC ;;SET FOR TIMEOUT 
#20000, R1 ;;FIRST ADDRESS 

(R1) ;;TEST THIS ADDRESS 

(RD* ;;STEP TO NEXT ADDRESS 

1$ ;;TRY ANOTHER 

#2.R1 ;;DROP BACK 

RO.SP ; .-RESTORE THE STACK 

(SP>*,a#ERRVEC*2 .-.-RESTORE ERROR VECTOR 
(SP)*,a#ERRV£C 



(SP)*,a#116 

(SP>*.*rii4 

RI.SLSTAO 

(SP)*.R1 

(SP)*.RO 

PC 
0 



; .-RESTORE MEMORY ERROR VECTOR 

;;LAST ADDRESS 
;;PESTORE R1 
.-.-RESTORE RO 

.-.-CONTAINS THE LAST ADDRESS 
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SEO 01 1 



.S8TTL TRAP DECODER 



C30T 22 011646 
0301 2A 016666 
030132 000002 



0301 3A 
030136 
030H0 
030U2 
030KA 
030K6 



030122 
024576 
0256K 
C25570 
025630 
026016 



030150 026312 



0301 52 
030154 
J30156 
030160 
030162 
030164 



026242 
026524 
0231 50 
026710 
026746 
022366 
000032 



.'•THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
.'•AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*0F THE DESIRED ROUlINE. THEN USING THE ADDRESS OBTAINED IT WILL 
.••GO TO THAT ROUTINE. 



030100 010C46 

030102 016600 000002 

030106 005740 

030110 11 1000 

030112 006300 

030114 016000 030134 

050120 000200 



000004 000002 



STRAP: 


MOV 


RO,-(SP) 




MOV 


2(SP).R0 




TST 


-(RO) 




M0V8 


(RO).RO 




ASL 


RO 




MOV 


$TRPAD(RO),RO 




RTS 


RO 


;;THIS 


IS USE 


TO HANDLE THE " 


$TRAP2: 


MOV 


(SP),-(SP) 




MOV 


4(SP),2(SP) 




RTI 




.S8TTL 


TRAP 


TABLE 



;/SAVE RO 

1 1 GET TRAP ADDRESS 

;i BACKUP ay 2 

liGET RIGHT BYTE OF TRAP 
.'.•POSITION FOR INDEXING 
;; INDEX TO TABLE 
;;60 TO ROUTINE 



rpRI" MACRO 

;;MOVF THE PC DOWN 
.-.MOVE THE PSW DOWN 
;; RE STORE THE PSW 



.••THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
.-•BY THE "TRAP" INSTRUCTION. 



STRPAD: 



ROUTINE 

.WORD 

STYPE 

STYPOC 

$TYPOS 

STYPON 

STYPDS 



$TRAP2 

;;CALL= 
;;CALL= 
;;CALL= 
;;CALL= 
;;CALL= 



TYPE TRAP*1 (104401) 

TYPOC TRAP*2( 104402) 

TYPOS TRAP*3( 104403) 

TYPON TRAP*4( 104404) 

TYPOS TRAP*5( 104405) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NLMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NLTCER (WITH SIGN) 



SGTSWR ;;CALL=GTSWR TRAP*6(104406) GET SOFT-SUR SETTING 



SCKSWR ;;CALL=CKSWR 
SRDCHR ;;CALL=RDCHR 
SRDLIN ;;CALL=RDLiN 
fSAVREG ;;CALL=SAVRE6 
SRESREG ;;CALL=RESREG 
SDSPLY ;;CALL=DISPLY 
$TERM=. -STRPAD 



TRAP*7( 104407) 
TRAP*1 0(1 04410) 
TRAP+1 1(104411) 



TEST FOR CHANGE IN SOFT-SWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
TRAP*12(104412) SAVE R0-R5 ROUTINE 
TRAP+1 3(10441 3) RESTORE R0-R5 ROUTINE 
TRAP*14(104414) ROUTINE TO TYPE ERROR MESSAGES 
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SEQ 01 U 



3 
t, 
5 
6 
7 
8 
9 
10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
33 



3A 
35 
36 
37 
38 
39 
40 
43 



030176 
0301 77 
030200 
030201 
030202 
030203 
030204 
030205 



44 
45 
46 
47 
48 
49 



030206 
030207 
030210 
03021 1 
030212 
030213 
030214 
030215 



.SBTTL SINGLE/DUAL PORT RH/RM DRIVER (REV 6.5) 1931 



NEW DRIVE TYPE ID FOR RM02 •*« 
10-AUG-77 *****••»*♦* 
10-MAR-78 THE SC, SC5 CHANGES 
NEW DRIVE TYPE ID fOR RM05 
1980 *********** 



COPYRIGHT (C) 1977.1981 
DIGITAL EQUIPMENT CORP. 
MAYNARD. MA 01754 
AUTHOR(S): JIM LACEY/CHUCK HESS 

REVISED BY: MIKE LEAVITT 11-APR-80, 27-MAR-81 

******************* ************************************** 
• 

STORAGE FOR RMDS. RMER1 . RMER2. AND RMMR2 ON AN ERROR '7" 
RMERRS = RMDS 
RMERRS+2 = RMER1 
RMERRS+4 = RMER2 
RMERRS+6 = RMMR2 



030166 000000 000000 000000 RMERRS: .WORD 0,0.0.0 



.•TABLE OF DRJVE ACTIVE INDICATORS (DRVACT=8 BYTES) 
;DRVACT=0 IF DRIVE IS IDLE 
;DRVACT>0 IF DRIVE IS ACTIVE WITH A COIWAND 

;ORVACT<0 IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 



000 
000 
000 
000 
000 
000 
000 
000 



DRVACT: .BYTE 0 

.BYTE 0 

.BYTE 0 

.BYTE 0 

.BYTE 0 

.BYTE 0 

.BYTE 0 

.BYTE 0 



DRIVE 0 
DRIVE 1 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 



2 
3 
4 
5 
6 
7 



; TABLE OF DRIVE STATUS INDICATORS (0RVSTA=8 BYTES) 

;DRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT 
;DRVSTA>0 IF DRIVE IS ONLINE 
;ORVSTA<0 IF DRIVE IS UNSAFE 



000 
000 
000 
000 
000 
000 
000 
000 



DRVSTA: 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



0 
0 
0 
0 
0 
0 
0 
0 



.•DRIVE 0 
.DRIVE 1 
.-DRIVE ' 
.•DRIVE 
.•DRIVE 
.•DRIVE 
.•DRIVE 
.•DRIVE 



; TABLE OF DRIVE TYPES (DRVTYP=8 BYTES) 

;DRVTYP=0 IF DRIVE IS NONEXISTENT (DRVSTA=0, ALSO) 
;DRVTYP=7 IF DRIVE IS RM05 ****** 
;DRVTYP-5 IF DRIVE IS RM02 ****** 
;DRVTYP=4 IF DRIVE IS RM03 
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SEG 011'> 



50 












52 


030216 


000 


55 


03021 7 


000 




030220 


000 




030221 


000 




030222 


000 




030223 


000 




030224 


000 




030225 


000 



56 

37 
58 
59 
60 

61 030226 
(A 030227 
030230 
030231 
030232 
030233 
030234 
030235 

65 
66 
67 
68 
69 

70 030236 
73 030237 
030240 
030241 
030242 
030243 
030244 
030245 

74 
75 
76 
77 
78 

79 030246 

80 

81 

82 

83 

84 

85 

86 

87 030250 

88 

89 

90 

91 

92 

93 030252 
94 



;DRVTVP=-1 IF NOT RM0$/3/2 



000 
000 
000 
000 
000 
000 
000 
000 



000 
000 
000 
000 
000 
000 
000 
000 



000000 



000000 



000 



DRVTVP: .8YTE 0 

.8YTE 0 

.8YTE 0 

•BYTE 0 

.8YTE 0 

.BYTE 0 

.BYTE 0 

.BYTE 0 



DRIVE 0 
DRIVE 1 
DRIVE 
DRIVE 



2 
3 



DRIVE 4 



DRIVE 
DRIVE 
DRIVE 



5 
6 
7 



.-TABLE OF DUAL PORT INITIALIZATION INDICATORS 

;DPINT=0 IF INITIALIZATION IS NOT ACTIVE ON THE DRIVE 
;DPINT<0 IF INITIALIZATION IS IN PROGRESS 



DPINT: 



.8YTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



U 
0 
0 
0 
0 
0 
0 



.•DRIVE 
.•DRIVE 
;DRIVE 
.•DRIVE 
.•DRIVE 
;DRIVC 
.•DRIVE 
; DRIVE 



0 
1 
2 
3 
4 
5 
6 
7 



.•TABLE OF PENDING DUAL PORT REQUESTS 

;DPRQS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE 
;DPRQS<0 IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE 



DPRQS: 



• BYTE 
.BYTE 
.BYTE 
.BYTE 

• BYTE 
•BYTE 
.BYTE 
.BYTE 



0 
0 
0 
0 
0 
0 
0 
0 



DRIVE 0 
DRIVE 1 
DRIVE 
DRIVE 



2 
3 



DRIVE 4 
DRIVE 5 
DRIVE 6 
DRIVE 7 



.•TRANSFER WAIT FLAG <TRNSWT=1 WORD) 

.•THIS IS A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 
;"DP8" OF THE I/O OPERATION. 

TRNSWT: .WORD 0 

.•SEARCH WAIT KEYS (SRCHWT=1 WORD) 

;THIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF 
;THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE I/O 
;REQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE. 
.•EACH DRIVE IS ASSIGNED ONE BIT. STARTING AT BITOO FOR DRIVE 0. 

SRCHWT: .WORD 0 

;RM DRIVER ACTIVE FLAG (ACTDRV=1 BYTE) 
;ACTDRV=0 IF DRIVER IS INACTIVE 
;ACTDRV>0 IF DRIVER IS ACTIVE 

ACTDRV: .BYTE 0 
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SEO 0116 



95 
% 
97 
98 

99 030253 000 
100 
101 
102 
103 
lOA 
105 

106 030254 000 
1J9 030255 000 

030256 000 

030257 000 

030260 000 

030261 000 

030262 000 

030263 000 

110 
111 
112 
113 
1U 
115 
116 

117 03026A 000000 

118 

119 

120 

121 

122 

123 

124 

125 030266 Mim 

126 

127 

128 

129 

130 030270 \7n77 
133 030272 ^77777 
0i027A ^77777 
050276 U7777 
030300 ^77777 
030302 }77777 
030304 177777 
030306 177777 

134 
135 
136 
137 
138 

139 030310 m777 

140 

141 

142 

143 



.•SOFTWARE TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE) 

;ACTSTR=0 IF SOFTWARE TIMER ROUTINE IS INACTIVE 
;ACTSTR>0 IF SOFTWARE TIMER ROUTINE IS ACTIVE 

ACTSTR: .BYTE 0 

.-UNLOAD FLAG (ULDFLG=8 BYTES) 

;ULDFLG=0 IF NO UNLOAD COMMAND 
;ULDFLG>0 IF UNLOAD COMMAND IN PROGRESS 
;ULDFLG<0 if UNLOAD COMMAND IN WAIT QUiEUE 



ULDFLG: .BYTE 0 

.BYTE 0 

.BYTE 0 

.BYTE 0 

.BYTE 0 

.BYTE 0 

.BYTE 0 

.BYTE 0 



DRIVE 0 
DRIVE 1 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 



.■SAVE REGISTERS FLAG (SAVEFG =1 WORD) 

;SAVEFG <0 IF SAVE THE RH/RM REGISTERS WHEN THE 
[OPERATION IS COMPLETED AS PER (DPB+14) . 
;SAVEFG=0 If SAVE THE RH/RM REGISTERS, AS PER 
(DP8*14), AFTER AN ERROR. 

SAVEFG: .WORD 0 

;SEEK FLAG (SEEkFG=1 WORD) 

;SEEKFG=0 IF WHEN THE DISK ADDRESS ISN'T IN THE WINDOW 
;F0R A DATA TRANSFER START A SEARCH COMMAND 
;SEEKFG<0 If DATA TRANSFER WILL DO IMPLIED SEEKS. 
; DISREGARD THE WINDOW 

SEEKfG: .WttRD -I 

.•TIMEOUT TABLE (TIMER=8 WORDS) 

.-THIS TARLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 



TIMER: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



-I 
-1 
-1 
-1 
-1 
-1 
-1 



DRIVE 0 
DRIVE 1 
DRIVE 
DRIVE 
DRIVE 
DRIVE 5 
DRIVE 6 
DRIVE 7 



2 
3 
4 



;DATA TRANSfER UNDERWAY INDICATOR (DTUW=1 WORD) 
;DTUW<0 If NO DATA TRANSFER UNDERWAY 

;DTUW=*N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 
DTUW: .WORD -1 

.•ATTENTION BITS TABLE (ATABIT=8 BYTES) rr 
.•THIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 
.'ATTENTION BIT 



OA 
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U5 

146 

K7 

K8 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

'83 

184 

185 

186 

187 

188 

189 

190 

191 

192 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

2C7 



030312 
030313 
030314 
030315 
030316 
030317 

030320 
030321 



030324 
030326 



001 
002 
004 
010 
020 
040 
100 
200 



030322 000003 



1 76700 
000254 



030332 000005 



000000 
000002 
000004 
000006 
000010 
000012 
000014 
000016 
000020 
000022 
000024 
000026 
000030 
000032 
000034 
000036 
000040 
000042 
000044 
000046 



0C0240 



ATA8JT: .8YTE 


1 


DRIVE 


0 


.8YTE 


2 


DRIVE 


1 


.BYTE 


4 


DRIVE 


2 


.BYTE 


10 


DRIVE 


3 


.BYTE 


20 


•DRIVE 


4 


.BYTE 


40 


•DRIVE 


5 


.BYTE 


100 


; DRIVE 


6 


.BYTE 


200 


; DRIVE 


7 



; NUMBER OF 'mSSBUS CONTROL PARITY ERRORS' 
.•CALLING IT FATAL (MCPE«X=1 WORD) 

MCPEMX: .WORD 3 



(MCPE) ALLOWED BEFORE 



.•STORAGE FOR RMADR (THE FIRST ADDRESS (776700) OF THE RH/RW) , 
;RMVEC (THE VECTOR ADDRESS (254)). AND RMVEC+2 (THE BR LEVEL (5)) 



RMADR : 
RMVEC: 



.WORD 
.WORD 



176700 
254,5*32. 



;MAXIMUM SEARCH FOR I/O WINDOW IS 5 SECTORS (MXWNDW-1 WORD) 
MHWNDW: .WORD 5 



.•DEFINITIONS ( 


RMCS1 




0 


RMWC 




2 


RM8A 




4 


RMDA 




6 


RMCS2 




10 


RMDS 




12 


RMERI 




14 


RMAS 




16 


RMLA 




20 


m>B 




22 






24 


RMDT 




26 


RMSN 




30 


RMOF 




32 


RMDC 




34 


RMHR 




36 


RMMR2 




40 


RMER2 




42 


RMEC1 




44 


RMEC2 




46 


.S8TTL 


RH/RM 



CONTROL AND STATUS REGISTER *1 (DRIVE REG. 0) 

WORD COUNT REGISTER (NOT A DRIVE REG) 

UNI8US ADDRESS REGISTER (NOT A DRIVE REG) 

DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 5) 

CONTROL AND STATUS REGISTER #2 'NOT A DRIVE REG) 

DRIVE STATUS REGISTER (DRIVE REG 1) 

ERROR REGISTER #1 (DRIVE REG. 2) 

ATTENTION SUMMARY PSEUOO REGISTER (DRIVE REG. 4) 

LOOK AHEAD REGISTER (DRIVE REG. 7) 

DATA BUFFER REGISTER (NOT A DRIVE REG.) 

MAINTAINABILITY REGISTER ORIVE REG. 3) 

DRIVE TYPE REGISTER (DRIVE REG. 6) 

SERIAL NUMBER REGISTER (DRIVE REG. 10) 

OFFSET REGISTER (DRIVE REG. 11) 

DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 

DUMMY ADDRESS REGISTER (DRIVE REG. 13) 

MAINTENANCE REGISTER #2 

ERROR REGISTER #2 (DRIVE REG. 15) 

ECC POSITION REGISTER (DRIVE REG. 16) 

ECC PATTERN REGISTER (DRIVE h-Q. 17) 



RH/RM DRIVER INITIALIZATION CODE 

.THIS ROUTINE WILL DETERMINE WHICH RM DRIVES ARE 
AVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR 
TO THE PROPER STATE FOR EACH DRIVE. 
NOTE: THIS ROUTINE CALLS DRVINT 



CALL 



JSR 



Pt.RMINIT 



RH/>m DRr.^R INITIALIZATION CODE 



208 

?09 

?10 
211 
212 
213 
2H 
215 
216 
217 
218 
219 
220 
221 
222 
223 
22A 
225 
226 
227 
228 
229 
230 
251 
232 
233 
234 
235 
236 
237 

238 
239 
2A0 
241 
242 
243 
244 
245 
246 
24 7 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
>61 
262 
263 
?64 



030334 
030336 
030342 
030350 
030354 
030360 
030364 
030366 
030370 
030372 
030376 
030402 
030404 
030406 
030412 
C30416 
030422 
030426 
030432 
030436 
030442 
030446 
030454 
030456 
030462 
030464 
030466 
030472 
030474 
030500 
030502 
030506 
030512 
030516 
030520 
030524 
030530 
030532 
030534 
030536 
030542 
030544 
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SCO 0118 



NOTE: TK 'P- OA 'L* CLOCK tJST BE STARTED 



1 5 






Mtiuf T - 






y I j«*»o 


1 7777a 








#<5*32 > PS 






1 7777* 




MOW 












MWFRRS R1 




















1U If 










^ t- 

w • 


''i R 


(r1 ) « 










L' w 


R1 R2 


ni?70? 




















*DTUU R2 


ni?7?i 


If r t w w 








#-1 , (R1 )• 


wcv I vc 








TMP 


R1 R2 


101 77^ 






















DRVSTA 




030210 






CLR 


DRVSTA*2 


005037 


030212 

V JVC * c 






CLR 


DRVSTA*4 




030214 






rrR 


0RVSTA*6 




050326 








RnvEC R3 


01P723 


032762 

w jC ' wc 








#]SR (R3)* 


01 ^71 3 


030330 








BWvEC«2 (R3) 


01 3704 


030324 








IVMDR R4 


01 


005000 


OOOC ' 0 






«CLR,RflCS2(R4) 


005001 










R1 


004037 


030546 




31: 


JSR 


RO. DRV I NT 


000401 








BR 


4t 


00040? 








BR 


5t 


105061 


0302C6 




4t: 


ClR8 


DR/STA(R1 ) 


00520'' 






51; 


INC 


R1 


042701 


1 77770 






8iC 


#*C7.R1 


001 366 










^% 


012701 


000007 

WWW ' 








#7.R1 


005037 


177776 






ClR 


PS 


105761 


030226 




6$: 


^ST8 


D*>INT(R1) 


001405 








9C0 


8S 


004737 


035446 






JSR 


PC, SET. IE 


105761 


030226 




71: 


TST8 


DPJNKRI ) 


001375 








BNE 


7$ 


005301 






81: 


DEC 


R1 


100366 








BPL 


6$ 


012637 


}7777b 






MOV 


(SP>^,PS 


104413 








RESREG 




000207 








RTS 


PC 



SAVE RO - R5 

SAVE THE PRESENT PROCESSOR STATUS 
CHANGE THE PRIORlTr TO 5 
CLEAR ALL REQUEST QUEUES 
FIRST ADDRESS TO BE CI EARED 
LAST ADDRESS TO BE CLEARED 
CcEAR 

ARE yE DONE? 
8R IF NO 
LAST ADDRESS 
INITIALIZE 
DONE? 

LOOP IF NO 

SET ALL DRIVES TO OFFLINE 



.-SETUP THE RH/RM VECTOR 



FIRST ADDRESS OF RH/RM 
HASSBUS INIT 
START WITH DRIVE 0 
INIT THE DRIVE 

•DVA* NOT SET OR PARITY ERROR 
NORMAL RETURN 

SET DRIVE STATUS TO OFFLINE 
GO TO NEXT DRIVE 
nASK OUT IfAJSED BITS 
BR IF nORE DRIVES TO GO 
START WITH DRIVE 7 
CLEAR THE PROCESSOR STATUS 
WAITING FOR DRIVE TO SWITCH PORTS 
BR NOT yMITING 
SET INTERRUPT 
DRIVE SWITCHED PORTS ? 
BR I f NOT 

GO TO THE NEXT DRIVE 
CHECK NEXT DRIVE 
RESTORE THE PROCESSOR STATUS 
RESTORE RO - R5 
BVE-BVE 

DRIVE INITILIZATION ROUTINE 

THIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS 
AN RM05/3/2. IF IT IS. A "READ-IN PRESET" IS ISSUED AND FMn6 
IS SET TO A 'T'. THEN MOL- DPR. DRr. AND VV ARE CHECKED TO 
THEV ARE ALL ON A n". AND DEPENDING ON THEIR STATE, 
IS SET TO THE PROPER CONDITION. 



INSURE 
DRVSTA 
CALL 



MOV #DRVNU«.R1 ;DRIVE NUMBER TO R1 

MOV RMADR.R4 ;UNI8US ADDRESS OF RH/RM (RMCS1; 

JSR RC.DRVINT ; CALLED BY A JSR 



050206 
050216 
050254 
000010 

0001 ii 000000 

010000 000010 
055446 



050206 

004000 000000 



rZRMTBO RM05/5/2 DR C>»»T TST "WCRO W04.0C 
RH/R« DRIVER INITIALIZATION CODE 

265 
266 
267 
268 

269 050546 010546 DRvINT: 

270 050550 '05061 

271 050554 105061 

272 050560 105061 

273 050564 010164 

274 050570 112764 

275 050576 052764 

276 050604 001405 

277 050606 004757 

278 050612 000520 
279 

280 050614 105061 

281 050620 052764 

282 050626 001512 
285 050650 004057 

284 C50654 000026 

285 050656 051056 

286 050640 012605 

287 050642 112761 

288 050650 022705 

289 050654 001451 

290 050656 022705 

291 050662 001426 

292 050664 112761 
295 050672 022705 

294 050676 001420 

295 050700 022705 

296 050704 001415 

297 050706 112761 

298 050714 022705 

299 050720 001407 

500 050722 022705 

501 050726 001404 

502 050750 112761 

503 050756 000446 
504 

305 050740 012746 

506 050744 004057 

507 050750 000000 

508 050752 051056 

509 050754 CI 2746 

510 050760 0D4057 

511 050764 000052 

512 050766 051056 
515 050770 004057 

514 050774 000012 

515 050776 051056 
5'6 051000 012605 

517 051002 100015 

518 051004 116164 

519 051012 004057 

520 051016 000014 
321 031020 031056 



C 10 

4-AP«-87 ^8:*2:J5 PAGE 25-5 



SCO 0119 



054756 



000004 0502^6 
020024 

024024 

000005 030216 
020025 

024025 

C00007 050216 
020027 

024027 

Mill? 0502^6 



000121 
055156 



010000 
055156 



054756 



030512 000016 
034756 



2S: 



RE TL«M 
RETURN2 



«0V 

CLR8 
CLR8 
ClRS 
MO^ 

BIT 
BEO 
jSR 
BR 

C.R8 

BIT 

BEO 

jSR 

RMDT 

5S 

MOV 

•10 VB 

CWP 

BEO 

C«P 

BEO 

IWV8 

CMP 

BEO 

CMP 

BEO 

MQVB 

CMP 

BEO 

CMP 

BEO 

MO^ 

BR 

MOV 

JSR 

RMCSl 

5f 

MOV 

JSR 

RMOF 

5S 

JSR 

RMOS 

5$ 

MOV 

BPL 

M0V8 

JSR 

RMER1 

5S 



.-ERROR OCCURRED (PARITY) 
.-NORMAL RETURN 



R5.-(SP) 
DRVSTA(R1 ) 
DRVTVP(RI) 
ULDFLG(RI) 
R1.R«CS2(R4) 
#1'.1 .RMCSl (R4) 
*eiT12.RMCS2(R4) 
1$ 

PC. SET. IE 
4S 



SAVE R5 

START DRIVE STATUS AS OFFLINE 
CLEAR T . DRIVE TyPE INDICATOR 
CLEAR THE UNLOAD FLAG 
SELECT A DRIVE 

DO A DRIVE CLEAR COMMAND (ft SEIZE DRIVE) 
.•NONEXISTENT DRIVE? 

NO 

GO SET "IE" WITHOUT A '7RE" 
LEAVF THIS ROUTINE 



DRVSTA(R1> ;SET DRIVE STATUS TO OFFLINE 

*8I Til. RMCSl (R4) .SEE IF DRIVE AVAILABLE 



4S 

RO.RD.RM 



;8R IF DRIVE NOT AVAILABLE 
.-READ THE DRIVE TVPE REG. 





ERROR RETURN ADDRESS 


fSP)*,R5 


PUT DRIVE TyPE IN R5 


t4.DRVTVP(Rl) 


SET RM05 INDICATOR 


*20024.R5 


SINGLE PORT RM05 ? 


2S 


BR IF yES 


#24024. R5 


•DUAL PORT RM03 ? 


2$ 


•BR IF yES 


*5,DRVTYP(R1) 


•SET RM02 INDICATOR 


#20025. R5 


•SINGLE PORT RM02 ? 


2S 


•BR IF SO 


#24025, R5 


;DUAL PORT RM02 ? 


2S 


;BR IF SO 


#7.DRVTyP(R1) 


;SET RMOS INDICATOR 


#20027. R5 


; SINGLE PORT RM05 ? 


2$ 


•BR IF YES 


#24027. R5 


;DUAL PORT RMOS ? 


25 


;BR IF YES 


#-1.DRVTyP(R1) 


;SET INDICATOR TO 'OTHER* 


4$ 


•EXIT 



#121. -(SP) 
RO.URT.RM 



#8IT12,-(SP) 
RO,WRT.RM 



RO.RD.RM 



;D0 A "READ-IN PRESET" 



;SET FMT16=1 



.-READ RMDS 



(SP)*.R5 .-AND SAVE IT IN R5 

5$ 'BR IF ATA=0 

ATA8ir(R1),RMAS(R4) .-CLEAR ATTENTION BIT 
RO.RD.RM .-FIND OUT WHY ATA=1 



CZRMTBO RM05/3/2 DR CMPT TST MACRO 
RH/RM DRIVER INITIALIZATION CODE 



rfOA.OO 4-APR-81 18:12:15 



D 

PAGE 



10 

2S-6 



522 
323 
32A 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
3A0 
541 
542 
543 
544 
545 
546 
547 
548 
549 
350 
351 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
362 
363 
364 
365 
566 
367 
368 
369 
370 
371 
572 
373 
374 
375 
376 
377 
378 



051022 
031024 
051026 
051054 

051036 
0310<.0 
031044 
031046 
031054 
031056 
031060 



031062 
031066 
031074 
031102 
031104 
031106 
031112 
031114 
051120 
051124 
051126 
031132 
031134 
031140 
031142 
031146 
051150 
031154 
031156 
031162 
031164 
031170 
031174 
031176 
031204 
031206 
031214 
031220 
031222 
031226 
031230 
031236 
031240 
031244 



006126 
100004 
112761 
000407 

005105 
042705 
001003 
112761 
005720 
012605 
000200 



^77777 030206 
167077 

000001 050206 



3$: 



4$: 
5$: 



ROL 
BPL 
M0V9 
BR 

COM 

BK 

BNE 

mvB 

rST 

MOV 

RTS 



(SP)^ 
3$ 

.DRVSTA(R1; 

4$ 

R5 



IS IT UNSAFE? 
8R IF NOT 

SET UNSAFE INDICATOR 
EXIT 

; CHECK MOL, DPR, DRY. AND VV 



#*C<8IT12:BIT08;8IT07:8IT06>.R5 



AS 

»1 .DRVSTA(R1> 
(R0)» 
(SP)*.R5 
RO 



;8R IF MOL. DPR, DRY, OR VV IS CLEAR 
.•SET DRIVE STATUS TO ONLINE 
.•STEP OVER THE ERROR Rh TURN 
.•RESTORE R5 
;EX]T 



REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 



CALL 



^SR 

PNTADR 

RETURN! 

RETURN2 



R0.RM05 



CALL THE RM05 DRIVER 

ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK 
RETURN HERE IF QUEUE IS FULL 
RETURN HERE IF REQUEST IS IN QUEUE OR THERE 
IS AN ERROR CONOUION 





1 7777h 




RM05 : 


MOV 


PS -(SP) 


•SAVE THE CALLING STATUS 


C15737 


030330 


1 77776 




MOV 


RMVEC»2.PS 


•DON'T ALLOW ANY RM INTERRUPTS 


1 It' J f 


000001 


030252 




MOVE 


#1.ACTDRV 


.SET "ACTIVE DRIVER" FLAG 








SAVREG 




.•SAVE RO - R5 


011002 








MOV 


{R0),R2 


.•PICKUP THE DRIVE PARAMETER BLOCK 


005062 


000016 






CLR 


16(ft2) 


.•CLEAR THE STATUS/ERROR INDICATOR 


111201 








M0V8 


(R2).R1 


.•PICKUP THE DRIVE NLWBER 


013704 


030524 






MOV 


RnADft.R4 


;IWI8US ADDRESS OF RMCSl 


105761 


030206 






TST8 


DRVSTA(RI) 


.CHECK DRIVES STATUS 


003014 








BGT 


IS 


;8R IF ONLINE 


105761 


030254 






Tsrs 


UL0FL6(R1* 


.UNLOAD COMMAND IN QUEUE? 


001056 






BNE 


3S 


'8R IF YES 


105761 


030226 






^ST8 


DPINT(R1> 


•TRYING TO INIT THE DRIVE 


001042 








BNE 


5S 


'8R IF YES 


004057 


030546 






JSR 


R0,0RVINT 


•GO INIT. THE DRIVE 


000454 








BR 


4S 


.ERROR RETURN 


105761 


030206 






TST8 


DRVSTA(RI) 


.•IS DRIVE STATUS ONLINE? 
•BR IF NOT 


003445 








BLE 


6S 


105761 


030236 




IS: 


TST8 


DPRQS(Rl) 


•OUTSTANDING PORT REQUEST FOR THE 


001031 






BNE 


5S 


;8R If YES 


010164 


000010 






MOV 


R1,RnCS2(R4) 


.•SELECT THE DRIVE 


004057 


036110 






JSR 


RO.DRVQUE 


;PUT THIS REQUEST IN QUEUE 


000460 






BR 


9S 


.•QUEUE IS FULL 


122762 


000103 


000002 




CMPS 


#103.2(R2) 


;IS THIS REQ. FOR AN UNLOAD? 


001003 








BNE 


2S 


•BR IF NO 


112761 


^77777 


030254 




M0V8 


#-1.ULDFLG(Rl) 


•SET THE 'UNLOAD IN CJEUE" FLAG 


105761 


030176 




2S: 


TST8 


DRVACT(RI) 


;IS THIS DRIVE ACTIVE? 
;8ft IF YES 


001043 








BNE 


8$ 


004737 


051554 






JSR 


PC. OPT 


;CALL THE OPTIMIZER 


000440 








8R 


8S 




012762 


120000 


000016 


5S: 


MOV 


#8in5:BIT13.16(R2) .-SET THE "UNLOAD IN QUEUE 


000434 








BR 


8S 


.•EXIT 


004737 


052432 




4$: 


JSR 


PC.CI7 


;G0 HANDLE THE PARITY ERROR 


000431 








8R 


8S 





'"ZRMTBO OR rmp^ tst MAC«»0 v04.00 

RM/«« DRIVER INITIALIZATION CODE 



4.APR-8T '8:'2:"S 



E 10 
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SEO 0121 



579 

580 

381 

582 

383 

384 

385 

386 

587 

388 

589 

390 

391 

392 

393 

394 

395 

596 

597 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

41U 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

436 

437 

438 

439 

440 

441 

442 

443 



031246 
031252 
031254 
031260 
031262 
031266 
031270 
031274 
031276 
031304 
031310 
031312 
03^320 
031322 
031330 
031332 
031334 
031336 
031340 
C31342 
031346 
031352 



031354 
031 356 
031362 
031 370 
031374 
031400 
03U02 
031404 
031410 
031416 
031424 
031426 
031432 
031434 
031440 
031446 
031452 
031454 
031462 
031464 
031464 
031472 
031474 
031500 
031502 
031506 
031510 
03^514 



004037 
000431 
032714 
001023 
X4737 
000420 
105761 
002412 
012762 
105761 
001007 
012762 
000403 
012762 
104413 
005720 
000401 
104413 
005720 
105037 
012637 
000200 



104412 
013746 
146137 
105061 
004737 
005702 
001466 
010164 
012764 
032764 
001442 
105761 
003014 
004737 
012762 
105761 
100047 
012762 
000443 

122762 
002403 
004737 
000434 
005737 
002006 
005737 
100003 



036110 
000100 
035446 
030206 

140C00 0000^6 
030216 

100002 000016 
110000 000016 



030252 
1 77776 



6t: 



177776 
030312 
030236 
036164 



030206 

036206 
140000 
030?06 



8t: 



9$: 



jSR 
BR 

b:t 

BNf 

JSR 

BR 

TST8 

BlT 

MOV 

'STB 

BNE 

«0v 

BR 

MOV 

RESREG 

TST 

BR 

RESREG 

•ST 

CLRB 

»«V 

RTS 



RO.DRVOUE 
9$ 

•81^06, (R4) 
8S 

PC. SET. IE 
8S 

0RVSTA(R1 ; 
7$ 

•eiT15.8IT14, 

DR;TVP(R1) 

8S 

*eiT15.8IT01, 
8t 

•Bin5.BIT12. 

(R0>* 
10S 



PUT REQUEST IN QUEUE 
QUEUE IS FULL 
IE BIT SET ? 
VES 

SET THE INTERRUPT 
RE TURN 

SEE If DRIVE OFFLINE OR UNSAFE 
BR IF UNSAFE 
16(R2) .-SET OFFLINE ERROR JNDICATOR 
;SEE IF OFFLINE OR NONEXISTENT 
;6R IF OFFLJNE 
16(R2) .-REPORT DRIVE NONEXISTENT 

;60 TO EXIT 
16(R2) .-DRIVE IS UNSAFE 
RESTORE RO - R5 
SETUP FOR NORMAL RETURN 
FINISH UP, THEN EXIT 
.RESTORE RO - R5 
{R0>» ; CORRECT THE RETURN ADDRESS 

ACTORV .-CLEAR "ACTIVE DRIVER" FLAG 

'SP)»,PS .-RETURN 'VS" TO USER LEVEL 

RO .-RETURN TO CALLER 



opt:«izer-calleo for a particular drive 



CALL 



OPT; 



03025C 



000010 

0001 1 1 OOOOOC 
004000 000000 



000C16 



110000 000016 

0001 50 000002 
032016 
030310 
030266 



2»: 



51: 



«0V 

JSR 

S*VR£C 

«ov 

BK8 

CLR9 

JSR 

TST 

BEO 

•Ov 

wov 

BIT 

BEQ 

TSTB 

BGT 

JSR 

«0V 

'STB 

BPL 

«10V 

8R 

CIPB 

JSR 

8R 

TST 

6GE 
•ST 
BPL 



«DRW^.R1 

PC.OPT 



.-DRIVE Nl^R TO Rl 
.-SETUP A COmAND 



'SAVE RO ~ R5 
PS.-^SP) -SAVE PROC. STATUS 

ATA8iT{Rl),SRCMWT .-CLEAR LA SEACH FLAG 



DF>R0S(R1) 
PC. GETRCO 
R2 
7S 

R1,RFICS2(R4; 
tni.R«CS1(R4) 
«8IT11.R«CS1(R4) 
5$ 

DRVSTACRI) 
2S 

PC.POPOUE 



rRESET THE PORT REQ FLAG 
;GET "DPe" POINTER OF REQUEST 
;IS THERE A REQUEST IN QUEUE? 
:N0— BR TO EXIT 

;L0AD THE DRIVE ADDRESS ••••••• 

; CLEAR THE DRIVE 

;DVA SET ? 
TO PORT REQUEST .IF NOT 
IS DRIVE ONLINE? 
rES 

;NO*-RE«OVE REQUEST FROM QUEUE 
«iT15:BITU,16^R2) .-SET OFFLINE STATUS/ERROR INDICATOR 
DRVSTA(RI) ;IS DRIVE UNSAFE ? 

8» ;8R TO EXIT IF NOT 

•8]T15:BIT12.16(R2) ;SET UNSAFE STATUS/ERROR INDICATOR 
8S ;8R TO EXIT 



*150.2(R2) 
3$ 

PC.CI4 
8S 

DTUW 
4S 

SEEKFG 
4S 



IS THE REQUEST FOR 1/0? 
VES 

CALL THE COMMAND INITIATOR 
8R TO EXIT 

DATA TRANSFER UNDERWAY? 
YES— GO START A SEARCH 
DO IMPLIED SEEKS? 
NO. DO A SEARCH 



'■ZW80 RM05/5/? DR C»1PT Tsr MACRO vCK. 00 4-APR-81 

rh/rh driver initialization code 



i t t 


ATI CI ^ 

031 3l6 


AAy 7T7 

00^' 3/^ 


AT 1 tno 

U3 ' oUc 








, CP 




ATI C^*^ 


AAAv 07 










OK 


lit. 


A 7 1 C OA 


AAA 777 


A7'' 710 

y3 ' lu 






J 3'' 


lit 


ATI CTA 

031 330 


AAAy OA 












1 1 o 


ATI C T'5 

03 1 ?3^. 


1 1 O 7A 1 

• 1 tfOl 


1 777''7 

' f ' f 1 1 




5»: 




1 1 Q 


ATI C/ A 

031 5»»U 


A1 A1 07 

0 101U3 










MOW 




AT1 C/ O 

031 


006303 










ACi 


/ c n 


ATI Cy / 

031 3*»*t 


A1 0 7A7 


A7C D7rt 


U3vc' - 










ATI 

U31 lie 


AOOAOO 












«• J 5 


U3 1 33'» 


OOA777 


07?a7? 






- j'^ 


/ 5/ 


ATI 

U31 30U 


07371 A 


A001 AO 

yuu I ^ 




7%: 


a r T 




ATI 

U51 36*» 


001 ooo 










BNF 


/ 


ATI 

U3 1 300 


AAA 777 
UU*»f J' 

01 ?A7? 


07<\AAA 

y3 j"»*»o 








jSR 




A71 ^73 

VJ3 1 5' C 


1 7777A 




8$: 


MOV 






1 AAA1 7 










RESREG 


««3y 


U3 low 


000307 










RTS 


















*»o 1 












COMMAND :nIT1 


LAO 
















••O J 






























MOv' 


so J 
































hC ' 
















/.Aft 
































L7f\ 
»• f U 
















/ 71 
















LTi 

'*! C 


fk71 Ar>5 


OOA777 


07AP'^A 

VOOC^O 










*• ' J 


n7i A/v> 

U3 lOUO 


010P77 


070?iA 
\> jyc*o 








MQV 


A7Z. 


U3 ID 1 c 


\1 1 vcU J 










MQV 


A7S 


J J 1 0 1 


01 77fV 


070 'SPi 








MOv 


A7A 




01 01 A^ 








MOV 


A 77 






OOOOOi 








ADD 


A7H 


(171 ATA 


0A?70t 


oooon? 








ADD 


A 70 


ATI 


01 P7PA 










MOv 


ASn 


."iTI A7A 


01 P7?A 










MOV 


AR1 
•to 1 


n7i AAO 


01 P7AA 










MO^ 


AH? 


n71 A/.? 




07«; 1 7A 








JSR 


AST 


n71 A/.A 


OOOOOA 










RMDA 


LSU. 


n7i A^n 

U3 1 DjU 


07?^>7? 










CI7 


Afl^ 

MO J 


P71 A^5 


01 P7/.A 










MOV 


AHA 


071 A^A 


OOA077 


07S 1 7A 








jSR 


/ fl7 


f\71 AAO 
U3 lOOU 


00007A 










RMDC 




071 AA7 












CI7 


ABO 


071 AAZ 
U3 IOO*» 


01A7AA 


OOOOOP 








MOv 


Aon 


A71 A7f. 


OOZ.077 


0X^1 3/E> 








jSR 


AOI 


071 A7A 


OOOOOO 
UVAAAA/ 










RMCSi 

CI7 


AO) 
Wye 


ATI a7A 

\jj 1 Of D 














071 7on 


0101 77 


070310 








MOV 




031704 


0001 37 


032374 








JMP 


495 
















496 


031710 


01 3704 


030324 






^•5: 


MC^ 


497 


031714 


010164 


000010 








MO^ 


498 


031720 


016246 


000012 








MOV 


499 


031724 


004037 


035136 








JS» 


500 


031730 


000034 










RMDC 
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SEO 012. 



pc.cn 

BS 

PC.CJ3 
8S 

#-1.DPRQS(R1) 
R1.R3 
R3 

•15000..TIMER(R3) 



.•START A DATA TRANSFER 

.•START A SEARCH 
;G0 TO THE EXIT 
;SET PORT REQUEST INDICATOR 
;SET UP TO ADDRESS WORDS 
; CONVERT TO WORD INDEX 



7$ 

PC.CI7 

•9IT06.(R4> 

8$ 

9C.SET.1E 
(SP)«,PS 

pr 

'OR 



.-START 15. SECOND TIMER 



PARI TV ERROR 
ALREADY SET 



;EXIT 

.•PROCESS THE 
.SEE IF 'IE* 
;8R If SET 
.SET "IE" WITHOUT A "TRE" 
.•RESTORE PROC. STATUS 
.•RESTORE RC - R5 



fDRvNt/'.RI 
#0Pe.R2 



*>C.PCPQuE 

R2.TRNSWT 

R2.R3 

RmDR.R4 

RT,mCS2(R4) 

»4.R3 

#2.»4 

(R5;»,(R4)» 
(R3)».(R4)» 
(R3)».-(SP) 
RO.rflT.RM 



{R3)*.-(SP) 
RO.riRT.RM 



.DRIVE NlMBER 
.•ADDRESS Of DP9 
;CJ?= CI1.CI3. OR CI4 
'WHERE : 

;CI1=DATA TRANSFER 

;CI3=SEARCH REQUESTED BV DATA XfER 

;CJ4=N0T DATA TRANSFER 

.•REMOTE REQUEST fROM 'DRIVES WAIT" QUEUE 

;PUT REO. IN TRANSFER WAIT QUEUE 

.DPS ADDRESS TO R3 

;RMCS1 ADDRESS 

.•SELECT DRIVE 

.DESIRED WORD COlMT 

;RI>VC ADDRESS 

.•LOAD WORD COIMT 

.-LOAD BUFFER ADDRESS 

.•LOAD SECTOR AND TRACK 

.•CALL THE LOAD(WRITE) ROUTINE 

.•INDEX OF REGISTER TO LOAD 

; ERROR RETURN ADDRESS 

;LOAP CYLINDER ADDRESS 



?{R2).-(SP) 
RO.yRT.RM 



.-LOAD "C0HMAND*GO". "Al7tA16". AND "PSEL" 



RI.DTUW 
CIS 

RMADR.R4 

R1.RMCS2(R4) 
12(R2^ ,-(SP) 
RO.WRT.RM 



;SET 'DATA TRANSfER UNDERWAY" 



;RMCS1 ADDRESS 

.•SELECT DRIVE 

.•DESIRED CYLINDER ADDRESS 



DRIVER INITIALIZATION CODE 

501 031732 032432 :i7 

502 031734 116203 COOdO 'lOve 

503 031740 163703 030332 SJ8 

504 031744 002002 BGE 

505 031746 062703 000040 ADD 

506 031752 010346 MOV 

507 031754 116266 000011 COOOC^ ^10^8 

508 031762 004037 035136 jSR 

509 031766 000006 RMDA 

510 031770 032432 Cl7 

511 031772 012746 000131 "lOV 

512 031776 004037 03S136 jSR 

513 032002 000000 WCSi 

514 032004 032432 CI7 

515 032006 156137 030312 030250 BIS8 

516 032014 000567 BR 
517 

518 032016 013704 030324 «0V 

5^9 032022 010164 000010 ¥0V 

520 03202^ 116203 000002 '^VB 

521 032032 122703 000131 CW9 

522 032036 001007 BNE 

523 032040 016246 0000' 0 "K)V 

524 032044 004037 035136 jSR 

525 032050 000006 R«DA 

526 032052 032432 CI 7 

527 032054 000403 BR 

528 032056 122703 0001 05 '$: C^PB 

529 032062 001007 BNE 

530 032064 016246 000012 2$: 

531 032070 004037 035136 .SR 

532 032074 000034 RMDC 

533 032076 032432 C]7 

534 032100 000546 BR 

535 032102 122703 000^ 15 31: rtiPe 

536 032106 001013 BNE 

537 032110 004037 034756 .SR 
558 032114 000032 mof 

539 032116 032432 CI 7 

540 032120 116216 000001 mvB 

541 032124 004037 035136 vSR 

542 032130 000032 RrtOf 

543 032132 032432 CI 7 

544 032134 000530 BR 

545 032136 122703 000107 41 .- C/VB 

546 032142 001525 BEG 
54 7 032144 122703 000117 riVB 

548 032150 001522 BEO 

549 032152 122703 000103 CflPB 

550 032156 001016 6NE 

551 032160 112761 000001 030176 M0V8 

552 032166 105061 030206 CLRB 

553 032172 ^^276'l 000001 030254 »«i0v8 

554 032200 010546 

555 032202 004037 035136 jSR 

556 032206 000000 RWCS' 

557 032210 03245? CI7 
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SfO 0123 



10(R2),R3 
nxi/4Dw,R5 
IS 

#32., R3 

R3,-(SP) 
IKR?) J(SP) 
RO.WRT.RM 



.•PICKUP SECTOR ADDRESS 

.'BACKUP BY MAX. SEARCH FOR 1/0 WINDOW 



COMBINE THE ADJUSTED SECTOR WITH 

THE DESIRED TRACK 

LOAD DESIRED TRACK I SECTOR 



#131, -(SP) 
RO.WRT.RM 



; START A SEARCH 



ATA8]T(R1),SRCHWT 
CIS 



;S£T "SEARCH WAIT" KEY 



RnADR.R4 

R1,R«CS2(R4; 

2(R2).R3 

#131,R3 

IS 

'0(R2),-(SP> 
RO.WRT.RM 



RMCS1 ADDRESS 
SELECT DRiVE 

PICKUP THE REQUESTED COTWAND 
IS 17 A SEARCH COMMAND? 
8R If NO 

LOAD DESIRED TRACK ft SECTOR 



2$ 

#105. R3 
3S 

12(R2>,-{SP) 
RO.WRT.RM 



GO LOAD CYLINDER 

IS IT A SEEK COMMAND 

BR IF NO 

LOAD DESIRED CYLINDER 



CI6 

#'15. R3 
4S 

RO.RD.RM 



1(R2),(SP) 
RO.WRT.RM 



;IS IT AN 'IDFFSET" COMMAND? 
'BR IF NO 

;MER6E THE OFFSET VALUE INTO RMQF 
;8UT DON'T CHANGE THE UPPER 

;8YTE WHEN LOADING THE 
.-REGISTER (RMOf) 



CI6 

#107.R5 

CI6 

#117.R5 

CI6 

#103. R3 
5S 

#1.DRVACT(R1) 
DRVSTA(R1 J 
#1.ULDFL&(R1) 
R3.-(SP) 
RO.WRT.RM 



GO START THE COMMAND 

IS IT A 'I^E CALIBRATE" COMMAND^ 

BR IF YES 

IS IT A RETURN TO CENTER"* 
BR IF YES 

IS IT AN '\J^LOAD" COMMAND? 
BR IF NO 

SET THE DRIVE ACTIVE INDICATOR 
PUT DRIVE STATUS TO OFFLINE 
SET "UNLOAD IN PROGRESS" FLAG 
START THE "UNLOAD" COMMAND 



j^m^bo rmos/^/? or 's' «iac«<c 4-apr-8' 
rh'Om drwer initialization code 



558 


032212 


000207 








RTS 


559 


0522U 


122705 


COC'43 








560 


052220 


001014 








6NE 


561 


052222 


004057 


054 75t 








562 


052226 


000032 








R«Of 


56 ^ 


052250 


032452 










564 


052252 


116266 


000001 


0000C1 






565 


052240 


004057 


055156 








566 


052244 


000052 








mjf 

CI7 


567 


052246 


052452 








568 


032250 


000456 








9R 


5o9 


052252 


122705 


00014' 




t%: 




5^0 


032256 


001025 








8NE 


5^1 


052260 


016203 


000006 








57? 














573 


032264 


116257 


000010 
0000' " 


0525C2 






574 


052272 


116205 








575 


052276 


004057 


0547-56 




ei: 




576 


052502 


000000 








R«CS1 


577 


C52504 


052432 










578 


052506 


012625 








»w 


579 


052510 


025705 


052502 






C»¥> 


580 


052514 


001414 








BEC 


581 


052516 


062757 


000C02 


:3«r5:2 




ADD 


582 


052524 


C00764 








BR 


583 


052526 


122^05 


0OOU5 








584 


052552 


00U05 








BEQ 


585 


052534 


010546 






T»: 


«10v 


586 


052556 


004057 


055156 






jsr 


587 


052542 


000000 








R«CS' 


588 


052544 


052452 








tI7 


589 


052546 


004757 


056206 




VS: 


jSR 


590 


032352 


052762 


000200 


0CO016 




BIS 


591 


052560 


005737 


030264 






TST 


592 


052364 


100002 








BPL 


593 


032366 


004757 


035350 






JSR 


594 


032372 


000207 






'51: 


RTS 


595 














596 


032574 


006501 






:I5: 


ASL 


597 


052576 


012761 


023420 


050270 




«0V 


598 


052404 


006201 








ASR 


599 


052406 


112761 


000001 


0301 76 




M0V8 


600 


052414 


000207 








RTS 


601 














602 


052416 


010546 






C16: 




603 


052420 


004037 


035156 






JSR 


604 


052424 


000000 








RMCS' 


605 


032426 


052452 








CI7 


606 


052450 


000761 








3R 


607 














608 


032432 


032764 


010000 


000010 


rJ^• 


BIT 


612 


052440 


005702 






1$; 


TST 


616 


052442 


001001 








6NE 


617 


052444 


000207 








RTS 


618 


052446 


012762 


104000 


000016 


2S: 




622 










CJ78: 




625 


032454 


012746 


000111 




MOiT 
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PC 

#'45. R5 
tt 

RO.RD.RH 



;RfTuRN TO USER 

;1S IT A "SET FORMAT" COMMAND? 
;8R IF NO 

;READ THE OFFSET REGISTER 



1(R2).1<SP) .-COMBINF •TMn6"/"ECr'. AND "MCI" 
RO.WRT.RM ;LOAD 'TMT16". "tCl", AND/OR 'XCI" 



'?% 

*U'.R5 
10$ 

6i'R2).R3 

10«'R2),9» 
n(R2),R5 
RO.RD.RM 



(SP)».<P3)* 
9$.R5 

•2i 

#2,9$ 
8$ 

#145. R! 
'2$ 

R5.-(SP) 
R0,WRT.R« 



;I5 IT A "GET REGISTER" COMMAND' 
;BR If NO 

.•POINTS TO 1ST ADDRCSS OF WHERE 

;T0 PUT THE REGISTER(S) 

;INIT. THE INDEX FOR THE FIRST REG- 

.•INDEX OF LAST REG. TO MOVE 

.•READ RH/RM REGISTER 

.•INDEX OF REG. TO READ 

.•GET THE CONTENTS OF RH/RM REG. 

.-LAST REG. BEEN READ? 

;GET OUT If YES 

.-INCREASE THE INDEX BY 2 

; LOOP—MORE TO READ 

;IS IT A "SELECT DRIVE" COMMAND^ 

;8R IF YES 

.•LOAD THE COMMAND 



.REMOVE REO. FROM QUEUE 
;SET THE '^ONE" BIT 
.'SAVE THE RH/RM REGISTERS? 
*8R IF NO 

•YES— GO SAVE THE REGISTERS 
.•RETURN TO USER 



.•START 10. SECOND TIMER 



PC.POPQUE 
#9iTC7.16(R2) 
SAVEFG 
15$ 

PC,SvRh70 
PC 

R1 

•10000.. TIMER{R1) 
R1 

#1.DRVACTfR1> ;SET THE DRIVE ACTIVE 
Pf ;RETURN TO THE USER 



R5.-(SP) 
RO.WRT.RM 



;LOA0 THE COMMAND 



ri5 

#8]Tf2.RMCS2(R4) ;DflIVE NON-EXISTENT ? 

R2 .-ANYTHING IN QUEUE ? 

2$ ;BR IF QUEUE IS THERE 

PC .-OTHERWISE EXIT 

#81115. BIT11.16(R2) .-SET 'PARITY" ERROR INDICATOR 



#111, -(SP) 



.-DO A 'DRIVE CLEAR* 



:Z«MTBO RMG5/^/2 DR C1PI ^ST ^CRO ifO<..00 
Rh/W DRNER INITIALIZATION CODE 



4-APR-81 



I 10 

^8:'?: IS PAGE ?5-l 



03^460 
052464 

626 03246O 

627 032470 

628 032474 

629 03250C 
63C 032504 
651 032510 
635 032514 
656 032516 

637 052522 

638 052530 



624 
625 



639 
640 
641 



032552 
052534 

642 032556 

643 032540 
64-!. 052544 

645 052546 

646 052552 

647 052554 

648 052560 

649 052564 

650 052566 

651 052572 

652 052574 
655 052576 

654 052604 

655 052606 

656 052614 

657 052616 

661 052624 

662 052652 
665 032636 

664 052642 

665 052646 

666 052650 

667 052656 

668 052662 

669 052666 
675 052674 

674 052676 

675 052702 

676 052706 

677 052710 

678 052716 

679 052722 

680 032726 

681 032734 

682 052736 

683 052742 

684 032746 

685 052752 

686 052756 

687 052760 
688 

689 



004057 
000000 
032532 
004737 
105061 
105061 
105061 
020237 
001005 
005037 
012737 
000207 

104412 
005001 
005005 
105761 
001005 
105761 
001443 
013702 
020137 
001402 
004737 
005702 
001413 
032764 
001404 
012762 
000403 
012762 
012763 
105061 
105061 
020137 
001005 
012737 
005057 
105061 
052764 
005201 
062705 
042701 
001514 
012757 
005057 
004757 
012764 
000406 
004737 
105061 
105061 
004737 
104413 
000207 



035136 



036070 
030236 
050254 
0501 7*> 
030246 

030246 
\77777 



C30'76 
050256 

030246 
050310 

036164 

010000 

100002 

102000 
^77777 
030 . 76 
050256 
030310 

y77777 
030246 
030254 
010000 

000002 
y7777^ 

M7777 
030246 
036012 
005000 

036070 
050206 
050216 
035446 



't: 



03C5'C 



2$: 

CIS: 



000010 

0000^6 

000016 
0302^0 



030510 
0000 '0 

050310 
000010 



2f: 



51: 



4t: 
5f: 



61: 



7%: 
8t: 



-SR 

RMCS^ 

C18 

.SR 

ClR9 

CLR8 

CLR8 

9NE 

:lR 

R'S 

SAvREG 

CLR 

ClR 

•ST8 

BNE 

-STB 

BEO 

«0V 

CMP 

BEG 

jSR 

TST 

BEC 

BIT 

BEC 

«GV 

BR 

MOV 

CLR8 

ClRS 

CMP 

BNE 

MOV 

ClR 

CLR8 

BIT 

INC 

ADD 

QIC 

BNE 

MOV 

ClR 
jSR 
MOV 
BR 

JSR 

CLR8 

aR8 

JSR 

RESREG 
RTS 



RC.WRT.RM 



PC.EMPTVQ 

DPROS(Rl; 

ULDFlG(RI) 

DRVACKRD 

R2.TRNSWT 

2% 

TRNSWT 
*-l .DTUW 
PC 



Rl 
R3 

DRv'ACTfRI ) 
2S 

DPRQS(fi1 ) 
6$ 

TRNSWT,R2 

Rl.DTUW 

3$ 

PC.GETREO 

R2 

5$ 

«eiT12.RMCS2(R4 
4$ 

•eiTi5iaiT0ij6 

5S 

•9IT151BIT10,16 

*-1.TlMER<R3) 

DRVACT(Rl) 

DPftQStRD 

Rl.DTUW 

6S 

#-i.DTuy 

TRNSWT 
JLDFlG(RI) 
«9in2.RMCS2(R4 
Rl 

»2,R3 
**C7.R1 

If 

t-l.DTUW 
TRNSWT 
PC.CLRQUE 
#CLR,RMCS2(R4} 

as 

PC.EMPTYQ 
DRVSTA(RI) 
DRVTrP(RI) 
PC. SET. IE 

PC 



EMPTY THE QUEUE 
CLEAR THE PORT REQUEST FLAG 
CLEAR THE UNLOAD IN QUEUE FLAG 
DRIVE IS IDLE 

IF THIS DRIVE HAD AN I/O REQUEST 
IN PROGRESS CLEAR ALl OF THE FLAGS 



;SAvE RO - R5 



.•DRIVE ACTIVE? 
;QR IF IN ACTIVE 
.PORT REQUEST 
'BR IF NOT 

■GET THE "TRANSFER WAIT" QUEUE 

;DID THIS DRIVE HAVE AN I/O IN PROGRESS? 

'8R IF yES 

•GET THE DPB POINTER 
.QUEUE ENTRY FOR DRIVE ? 
;8R IF NOT 

) ;'NED* SET ? 

•BR IF NOT 

(R2) .-SET 'DRIVE NON-EXISTENT' INDICATOR 
.•CONTINUE 

(R2) ;SET 'NON-CLE ARABLE PARITY" ERROF< INDlfATQR 
;STOP THE TIMER 
;SET "DRIVE ACTIVE" TO IDLE 
.•CLEAR PORT REQUEST FLAG 
;IS THIS DRIVE SETUP FOR A TRANSFER 
;8R IF NOT 

.RESET THE INDICATOR 
.•CLEAR THE TRANSFER QUEUE 
.•CLEAR UNLOAD FLAG 
) .'NED' SET ? 

.'MOVE TO THE NEXT DRIVE 



BR IF MORE DRIVES 

NO DATA TRANSFERS UNDERWAY 

CLEAR THE 'TRANSFER WAIT' QUEUE 

CLEAR ALL OF THE REQUEST QUEUES 

DO A MASS8US INIT. 

CONTINUE 

CLEAR THE DRIVE'S QUEUE 

SET DRIVE TO OFFLINE 

CLEAR THE DRIVE TYPE INDICATOR 

SET "IE" WITHOUT "TRE" 

RESTORE RO - R5 

RETURN 



.•INTERRUPT SERVICE ROUTINE 



CZRMTBO RM05/3/2 DR CMPT TST MAC«0 
RM/Rn DRIVER INITIALIZATION CODE 



rfO<i.OO 4-APR-81 '8:'2:T 



J 

PAGE 



10 
^5- 



MO 








M^ 

\J7 1 


03276? 


1 1?737 


COOOO 1 


M? 


03P770 


10441? 






03?77? 


01 3704 


030324 




032776 


013701 


030^10 




03300? 


00240? 




696 


033004 


004737 


035024 


697 


033010 


004737 


0331 74 


698 


033014 


104413 




699 


033016 


10S037 


030252 


700 


03302? 

JVC C 


00000? 




701 








70? 








703 








704 


033024 


105061 


030176 


705 


033030 


012737 


M7777 


706 


033036 


006301 




707 


033040 


012761 


y77777 


708 


033046 


006201 




709 


C33050 


013702 


030246 


710 


033054 


005037 


030246 
000200 


711 


033060 


052762 


712 


033066 


010164 


000010 


713 


033072 


004037 


034756 


7K 


033076 


000000 




715 


033100 


032432 




7U 


033102 


006126 




717 


033104 


100417 




718 


033106 


005737 


G30264 


719 


033112 


100002 




720 


0331K 


004737 


035330 


72 b 


033120 


004737 


036164 


727 


0331 2A 


005702 




728 


033126 


001403 




729 


033130 


004737 


051554 


730 


033134 


000207 




731 


033136 


012714 


000115 


732 


033142 


000207 




733 








73A 


033144 


052762 


100100 


735 


0331 52 


004737 


036070 


736 


0331 56 


004737 


035330 


737 


033162 


012714 


040111 


738 


033166 


012714 


000113 


739 


033172 


000207 




740 








763 








764 








765 


0331 74 


116403 


000016 


766 


033200 


001014 




767 


033202 


004037 


054756 


768 


033206 


000000 




769 


033210 


032532 




770 


033212 


106126 




771 


033214 


100405 




772 


033216 
033222 


004037 
104001 


036254 



030252 JSR: 



IS: 
?$: 



MO 1/8 
SAVREG 
MOV 
MOV 

BLT 
.SR 
JSR 

RESREG 

CLR8 
RTJ 



#'.ACTDRV 

RnADR.R4 

DTUW.R1 

1$ 

PC.SC 
AC 'DRV 



.•TRANSFER DONE ROUTINE 



TD; 



0000^6 !$: 



CLR8 

MOV 

ASL 

MOV 

ASR 

MOV 

CLR 

BIS 

MOV 

^SR 

RMCS1 

CI7 

ROL 

9MI 

TST 

BPL 

JSR 

JSR-- 

TST 

BE a 

JSR 

RTS 

•WV 

RTS 

BIS 
jSR 
JSR 
MOV 
MOV 
RTS 



DRVACKRI ) 

*-1.DTUW 

R1 

t-I.TIMER(RI) 

R1 

TRNSWT,R2 
TRNSUT 

*8JT07,16(R2) 

R1,RMCS2(R4) 

RO,RD.RM 



(SP>» 
3S 

SAVEFG 
1$ 

PC.SVRH70 

PCGETREQ 

R2 

21 

PCOPT 
PC 

#n3,(R4) 

PC 



12 



;SET "'ACTIVE DRIVER" FLAG 
.-SAVE RO - R5 
.•ADDRESS Of RMCS1 

;6ET 'DATA TRANSFER UNDERWAY" INDICATOR 

:BR IF NO DATA TRANSfER UNDERWAY 

.-CALL TRANSFER DONE 

.•CALL SPECIAL CONDITIONS 

.•RESTORE RO - R5 

.•CLEAR "ACTIVE DRIVER" FLAG 

.•RETURN 



;SET DRIVE ACTIVE INDICATOR TO IDLE 
;N0 DATA TRANSFERS UNDERWAY 

.•CANCEL TIMEOUT 

;6ET 'DPS" ADDRESS FROM THE 
.•TRANSFER WAIT QUEUE— CLEAR QUEUE 
:SET DONE 
.•SELECT THE DRIVE 
.-TRANSFER ERROR (TRE=1)^ 



.•;S TRE=1 ? 
•8R IF YES 

•SAVE THE RH/RM REGISTERS? 
*8R IF NO 

; YES— SAVE THE REGISTERS 
.-GET DPB POINTER 
.ENTRY FOR DRIVE ? 
;8R IF NOT 
;CAlL OPTIMIZER 
.RETURN 

.-RELEASE THE DRIVE 
.•RETURN 



SEO 012^ 



#BIT15:BIT06.16(R2> ;SET DATA ERROR FLAG 
PC.EWTYQ .-EMPTY THE 'T)RIVE'S WAIT" QUEUE 

PC.SVRH70 .-SAVE THE PH/RM REGISTERS 

#40111. (R4) .ISSUE A "DRIVE CLEAR" 
#'13,(R4) .-ISSUE A RELEASE TO THE DRIVE 

PC .-RETURN 



;SPECIAc CONDITION ROUTINE 

5C: 



MOi/B 
BNE 
jSR 
RMC51 
CIS 
R0L8 
BMI 
JSR 
EMT 



RMAS(R4).R5 
2S 

RO.RD.RM 



fSP)» 
II 

RO.ES.SAy 

1 



;READ "RMAS" 

;8R IF ANY 'ATA' BITS SET 

.-READ CONTROL AND STATUS REGISTER 



.IS "IE"=1? 

;VES. NO DRIVES TO CHECK 
.•SAVE THE ADDRESS IN 'SESCAPE' 
.-REPORT AN ILLEGAL INTERRUPT 



CZRMTBO DR C«PT TST HACRC vO<..00 4-AP^-81 
RH/RM DRIVER INITIALIZATION CODE 

773 00<.737 035446 -SR 

774 033230 000207 if: RTS 

775 033c 32 005046 2t: C.R 
^76 033234 110316 '«V8 

777 033236 012703 00000^ MOv 

778 033242 005001 CLR 
779 

780 033244 030316 SC3: BIT 

781 033246 001005 8NE 
782 

783 033250 005201 SC4: INC 

734 033252 106303 ASLB 

785 033254 001573 BSE 

786 033256 005726 TST 

787 033260 000207 9'S 
788 

789 033262 105761 030226 SC5: tsT8 

790 033266 001402 BEO 

791 033270 000137 034206 -WP 

792 033274 105761 030236 IS: TST8 

793 033300 001402 BEU 

794 033302 000137 034206 jMP 

795 033306 105761 030206 2f: TST8 

796 033312 003023 BGT 

797 033314 105761 030254 TST8 

798 033320 003420 BLE 

799 033322 004737 036164 .SR 

800 033326 004737 035330 JSR 

801 033332 004737 034136 jSR 
802 

803 033336 105761 030206 TSTB 

804 033342 003414 BlE 

805 033344 032737 040000 030166 BIT 

806 033352 001000 BNE 

810 033354 013705 OSOVO 5f: "WV 

811 033360 000504 BR 

812 033362 105761 030176 4$: TST8 

813 033366 001033 BNE 

814 033370 004737 034136 JSR 
815 

816 033374 105761 030226 51: TST8 

817 C33400 001323 BNE 

818 033402 105761 030206 TST8 

819 033406 100412 BMI 

820 033410 032737 020000 030172 BIT 

821 033416 001013 BNE 

825 033420 012746 000111 MOV 

826 033424 004037 035136 JSR 

827 033430 000000 RMCS1 

828 033432 033776 SC8 

829 033434 011605 6$: «0V 

830 033436 004037 036254 JSR 
033442 104002 E«T 

831 033444 000701 BR 

832 033446 71: 
033446 004037 036254 JSR 
033452 104005 EMT 
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3 



PC.SET.IE 

PC 

-(SP) 
R3.(SP) 
•1.R3 
R1 

R3-(SP) 
SC5 

R1 
R3 
SC3 
(SP)* 

PC 

DPINKRI ^ 
IS 

SC13 

DPR0S(R1) 
2S 

SC13 

DRVSTA(RI) 
4S 

OLDFLG(Rl) 
4S 

PC.GETREQ 
PC.SVRH70 
PC,SC12 

ORVSrA(Rl) 
5S 

^eirU.RMERRS 
3S 

R«ERRS»2,R5 
SC6A 

OftVACT(RI) 
SC6 

PC,SC12 

OPINT(Rl) 
SC4 

DRVSTA(RI) 
6S 

#8IT13.R«ERRS*4 
7S 

#111. -(SP) 
R0,WRT.RH 



(SP).R5 
RO.ES.SAV 

2 

SC4 

RO.ES.SAV 

5 



SET INTERRUPT ENABLE 
RE TURN 

PROCESS ALL DRIVES THAT HAVE 
AN "ATA"=1 



ATA- 
VES 



:1? 



MOVE TO THE NEXT DRIVE 

8R IF MORE TO CHECK? 
CLEAN OFF THE STACK 
RETURN TO USER 

INITIALIZING THE DRIVE ? 

8R IF NOT 

PROCESS THE DRIVE 

PORT REQUEST OUTSTANDING ? 

8R IF NOT 

START THE OUTSTANDING COMMAND 

CHECK THE DRIVE STATUS 

BR IF ONLINE 

UNLOAD IN PROGRESS? 

8R IF NOT 

GET DPS POINTER 

SAVE THE RH/RM REGISTERS 

SAVE RMDS. RMER1. RMER2, AND RMMR2 

ALSO DO A ORIVE INIT (DRVINT) 

DID DRIVE COME ONLINE? 

NO 

yAS THERE AN ERROR? 
SR IF ERROR 

YES — PICKUP RMERl AND 
GO PROCESS THE ERROR 

DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY 
Bfi IF EITHER 

SAVE RMDS. RMERl, RnER2, AND Rft1R2 

ALSO DO A DRVINT 

TRYING TO INIT THE DRIVE ? 

BR IF YES. CHECK ON MORE DRIVES 

CHECK ON DRIVE'S STATUS 

BR IF IMSAFE 

ADDRESS PLUG CHANGED ? 

BR IF YES 

DRIVE CLEAR 

yRITE THE COMMAND INTO RMCSl 

REGISTER INDEX 

PARITY EXIT ADDRESS 

PICKUP (RMAS) BEFORE THE ERROR CALL 

SAVE THE ADDRESS IN 'SESCAPE* 

REPORT THE UNEXPECTED ATTENTION 

GO CHECK FOR MORE ATA'S 

SAVE THE ADDRESS IN 'SESCAPE' 
REPORT THE ADDRESS PLUG CHANGE 



CZRMTBO ftMOS/^/? DR CMPT TST HAC»0 .'0<..0C <i-APR-81 

rh/rm driver initialization code 



833 


033454 


000675 








BR 


8?A 














835 


033456 


006301 






SC6: 


ASL 


836 


033460 


012761 


M7777 


030270 




«0V 


837 


033466 


006201 








ASR 


838 


033470 


004737 


036164 






JSR 


839 


033474 


010164 


000010 






MOV 


8A0 


033500 


000137 


034026 






JIIP 


8A1 


033504 


004037 


034756 






JSR 


8A2 


033510 


000012 








RMDS 


8A3 


033512 


033776 








SC8 


8^A 


033514 


011605 








nov 


845 


033516 


006126 








ROL 


846 


033520 


100407 








8WI 


847 


033522 


105761 


030176 






TST8 


848 


033526 


003137 








BGT 


849 


033530 


052762 


100210 


0000^6 




SIS 


850 


033536 


000470 








BM 


85 T 


033540 


004037 


034756 






JSR 


852 


033544 


000014 








RMER1 


853 


033546 


033776 








SC8 


854 


033550 


012605 








MOV 


855 


033552 


004737 


035330 






JSR 


856 


033556 


012746 


000111 






MOV 


857 


033562 


004037 


035136 






JSR 


858 


033566 


000000 








RMCS1 


859 


033570 


033776 








SC8 


860 














861 


033572 


006105 






SC6A: 


ROL 


862 


033574 


100406 








BMI 


863 


033576 


005702 








TST 


864 


033600 


001447 








BEO 


865 


033602 


052762 


100240 


000016 




BIS 


866 


033610 


000443 








BR 


867 


033612 


004037 


034756 




IS: 


JSR 


868 


033616 


000012 








RMDS 


869 


033620 


033776 








SC8 


870 


033622 


011605 








MOV 


871 


033624 


006126 








ROL 


872 


033626 


100011 








8PL 


873 


033630 


112761 


y77777 


030206 




M0V8 


874 


033636 


004737 


035330 






JSR 


875 


033642 


052762 


110000 


000016 




BIS 


876 


033650 


000423 








BR 


877 


033652 


032705 


010000 




2S: 


BIT 


878 


033656 


001015 








BNE 


879 


033660 


112761 


1 77777 


030176 




MOVB 


880 


033666 


112761 


000001 


030206 




M0V8 


881 


033674 


006301 








ASL 


882 


033676 


012761 


035230 


030270 




MOV 


883 


033704 


006201 








ASR 


884 


033706 


000137 


033250 






JMP 


885 


033712 


052762 


100220 


000016 


31: 


BIS 


886 














887 


033720 


105061 


030176 




SC7: 


'LR8 


891 


033724 


004737 


036206 






JSR 


892 


033730 


105761 


030254 






TST8 



L 10 
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SEQ 01^ r 



SC4 

R1 

#-1 ,TIMER(R1) 
R1 

PC.GETREO 
R1-RMCS2(R4) 

sell 

RO.RD.RM 



CHECK FOR MORE DRIVES 

SETUP TO ADDRESS WORDS 

STOP THE TIMER 

RESTORE THE DRIVE ADDRESS 

GET THE DPS POINTER FROM THE QUEUE 

SELECT DRIVE 

PROCESS THE SEARCH 

READ THE RM'S STATUS REG. 



(SP).R5 ;AND PUT IT IN R5 

(SP)* ;WAS THERE AN ERROR? 

1S '8R IF ERROR 

DRVACT(RI) ;CHECIC DRIVE'S STATE 

sen ;a« IF DRIVE ACTIVE WITH ORDER 

#8IT15:BIT07!8IT03J6(R2) ;INF0R«USER OF 

SC7 

RO.RD.RM ;READ ERROR REGISTER #1 



ERROR RECOVER COMPLETION 



(SP)*.R5 
PC,SVRH70 
#111. -(SP) 
RO.WRT.RH 



AND SAVE IT IN R5 
SAVE RH/RM REGISTERS 
ISSUE A DRIVE CLEAR 



R5 ;WAS 'XWSAFE" CONDITION =1? 

If ;8R IF YES 

R2 .-ANYTHING IN QUEUE ? 

SC7 *6R IF NOT 

•8IT15:81T07!8It65,16(R2J .-INFORM USER OF ERROR 
SC7 

RO.RD.RM .-READ DRIVE STATUS REG. «1 



(SP).R5 
(SP)* 
2S 

#-l.DflVSTA(Rl) 
PC.SVRH70 

«8IT15:BIT12.16(R2) 
SC7 



SAVE RMDS IN R5 
'TRR'-l' 

8R IF NO— IWSAFE CLEARED 
DRIVE IS UNSAFE 
SAVE RH/RM REGISTERS 

.•INFORM USER OF UNSAFE ERROR 



*8IT12.R5 
3S 

#-1,DRVACT(Rl) 
«1.DRVSTA(R1) 
R1 

#15000.,TIMER(R1> 
R1 

SC4 

#8in51BlT07:aiT04,16(R2) 



•WOL" = 1 ? 
8R IF YES 

ACTIVE ERROR RECOVER 
ONLINE 



.•START 15. SECOND TIMER 

.•INFORM USER OF ERROR 



DRVACT(RI) 

PC.POPQUE 

ULDFLG(RI) 



DRIVE IS IDLE 

REMOVE THE QUEUE 

UNLOAD IN PROGRESS OR QUEUE? 



CZRMTBO RM05/3/2 DR CWPT TST HACBO V0'..00 4-APR-81 
RH/RM DRIVER INITIALIZATION CODE 





033734 


003002 








BGT 


89<i 


033736 


105061 


C30254 






CLR8 


B95 


033742 


116164 


030312 


000016 

Www W 


It: 


novB 


396 


033750 


105761 


030206 






TST8 


897 


033754 


100406 








BMI 


901 


033756 


012746 


00011 1 






MOV 


902 


033762 


004037 


035136 






JSR 


903 


033766 


000000 

WWW 








RMCS1 


90<i 


033770 


033776 








SC8 


905 


033772 


000137 


033250 




2S: 


JMP 


906 














907 


033776 


105761 


0301 76 




SC8: 


TST8 


908 


03400? 


001405 








BEO 


909 


034004 


004737 


036164 






jSR 


910 


034010 


004737 


032432 






jSR 


911 


034014 


000402 








BR 


912 


034016 








1$: 




916 


034016 


004737 


032454 






JSR 


917 


034022 


000137 


033250 




2$: 


JMP 


918 














919 


034026 


105761 


030254 




sen : 


TST8 


920 


034032 


003402 








BLE 


921 


034034 


105061 


030254 






CLR8 


922 


034040 


105061 


0301 76 




IS: 


CLR8 


923 


034044 


136137 


030312 


030250 




BITS 


924 














925 


034052 


001012 








BNE 


926 


034054 


004737 


036206 






JSR 


927 


034060 


052762 


000200 


000016 




BIS 


928 


034066 


005737 


030264 






TST 


929 


034072 


100002 








BPL 


930 


034074 


004737 


035330 






JSR 


931 


034100 


116164 


030312 


000016 


2$: 


novB 


932 


034106 


146137 


030312 


030250 




BIC8 


935 


034114 


006301 








ASL 


934 


034116 


012761 


1 77777 


030270 




nov 


935 


034124 


006201 








ASR 


936 


034126 


004737 


031354 






JSR 


937 


034132 


000137 


033250 






J^F 


938 














939 


034136 


010164 


000010 




SC12: 


nov 


940 


034142 


016437 


000012 


030166 




iwv 


941 


034150 


016437 


000014 


0301 70 




nov 


942 


034156 


016437 


000042 


0301 72 




MOV 


943 


034164 


016437 


000040 


030174 




MOV 


944 


034172 


004037 


030546 






JSR 


945 


034176 


000401 








BR 


946 


034200 


000207 








RTS 


947 


034202 


005726 






IS: 


TST 


948 


034204 


000674 








BR 


949 














950 


034206 


006301 






SC13: 


ASL 


951 


034210 


0127n 


\77777 


030270 




MOV 


952 


034216 


006201 








ASR 


953 


034220 


010164 


000010 






MOV 


954 


034224 


116164 


030312 


000016 




M0V8 


955 


034232 


105761 


030226 




IS: 


TST8 



M 10 
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1$ ;8R If NOT 

ULDFLG(RI) ;CLEAfi UNLOAD FLAG 

ATA8IT(R1),R«AS(R4) ;CLEAfl ATTENTION BIT 
DRVSTA(RI) ;IS THE DRIVE UNSAFE ? 

2S ;8R If IT IS 

#111.-(SP) ; DRIVE CLEAR COMMAND 

RO.URT.RM .-WRITE THE COMMAND INTO RPCS1 

.•REGISTER INDEX 
.-PARITY EXIT ADDRESS 
.-CHECK FOR MORE DRIVES 



SC^ 

DRVACT(RI) 
IS 

PC.GETREO 
PC.CI7 
2S 

PC.CI7B 
SC4 

ULDFLG(Rl) 
1S 

ULDFLG(RI) 
DRVACT(RI) 
ATABIT(R1),SRCHWT 



;IS DRIVE IDLE? 
.-VES 

.GET DPS POINTER 
.-PROCESS THE PARI TV ERROR 
;CONTINUE 

.-PROCESS THE UNCORRECTABLE PARITY ERROR 
.CHECK MORE DRIVES 



2S 

PC.POPOUE 
*8IT07,16(R2) 
SAVEFG 
2S 

PC,SVRH70 

ATA8IT(R1).RMAS(R4) 
ATA8IT(R1).SRCHWT 



R1 

4f-1.TIMER(R1) 
R1 

PC. OPT 
SC4 



;• UNLOAD IN PROGRESS"? 
-BR IF NO 

•CLEAR IWLOAO FLAG 
.-SET DRIVE IDLE 

;D0JN6 A SEARCH OPERATION FOR 
.-AN I/O COMMAND? 
;8R IF YES 

.-REMOVE REQUEST FROM QUEUE 
;SE: "DONE" BIT 
.-SAVE THE REGISTERS? 
-6R I F NO 

; YES— SAVE ALL OF THE RH/RM REG'S 
.•CLEAR ATTENTION BIT 
.-CLEAR IMPLIED SEEK SET 



.-WORD INDEX 
.STOP CLOCK 
.•RESTORE R1 
.-START A REQUEST 
.-CHECK FOR MORE DRIVES 



R1.RMCS2(R4) .-SELECT DRIVE 
RMDS(R4).RMERRS ."SAVE THE FOUR REGISTERS THAT 
R«ERUR4).RMERRS*2 .'WILL TELL US SOMETHING 

RMER2(R4).RMERRS*4 
RMMR2<R4).RMERRS-»6 

RO.DRVINT ;INJT. THE STATE OF THE DRIV^ 

IS .-TAKE ERROR EXIT 

PC ; RETURN 

(SP)* ;POP PC OFF OF THE STACK 

SC8 .-PROCESS THE PARITY ERROR 



.-SETUP TO 
.-STOP THE 



ADDRESS 
TIMER 



WORDS 



R1 

#-1,TIMER(R1) 
R1 

R1.RMCS?(R4) ;SELECT THE DRIVE 
ATA8IT(R1).RMAS(R4) .•CLEAR THE ATTENTION 

DPINT(RI) .-INITIALIZING THE DRIVE ? 



BIT 



rZRMTBO RM05/3/2 DR CMPT TST HACRO vO^.OO 
RH/RM DRIVER INITIALIZATION CODE 



N 10 

4-APR-81 18: TP: 15 PAGE 25-16 



SEQ 0150 



956 
957 
958 
959 
960 
961 
962 
963 
964 
%5 
966 
970 
971 
972 
973 
974 
9/5 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
100? 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 

ion 

1012 
1013 
1014 
'015 



034236 
034240 
034244 
034250 
034252 
034256 
034260 
034262 
034264 
034270 
034276 
034302 
034306 
034310 
034316 
034320 
034322 
034330 
034332 
C34354 
034340 



034344 
054350 
034352 
034360 
034362 
034364 
034366 
034372 
034 374 
034402 
034404 
034410 
034412 
034414 
034420 
034422 
034424 
034430 
034432 



001424 








BEQ 


2$ 


;8R IF NOT 


105061 


C30226 






CLR8 


DPINT(RI) 


.•CLEAR THE INIT INDICATOR 


004037 


030546 






jSR 


RO.DRVINT 


;G0 INIT THE DRIVE 


000240 






NOP 




;DUWy PARITY ERROR RETURN 


105761 


030206 






TST8 


DRVSTA(R1) 


.-DRIVE ONLINE ? 


003014 






BGT 


2$ 


;8R IF YES — START ORDER 


005702 








TST 


R2 


.QUEUE ENTRY FOR THE DRIVE 


001426 








BEQ 


3$ 


;8R IF NOT 


004737 


036164 






JSR 


PCGETREQ 


.GET DP6 ADDRESS 


052762 


140000 


000016 




BIS 


#8iT15:BIT14.16(R2) ;INFORM USER THAT 1 


004737 


035330 






JSR 


PC.SVRH70 


.-SAVE THE REGISTERS 


004737 


036206 






JSR 


PC.POPQUE 


.-REMOVE THE QUEUE 


000414 






BR 


3S 




032764 


004000 


000000 


2$: 


BIT 


#8IT11 ,RWCS1(R4; 


;DVA SET ? 


001006 








6NE 


4$ 


.SET THEN CALL OPT 


006301 








ASL 


Ri 




012761 


035230 


030270 




MOV 


*15000..TIMER(R1) ;START 15. SECOND 


006201 








ASR 


RI 




000402 








BR 


3f 




004737 


031354 




4$: 


JSR 


PC. OPT 


.•START THE PENDING REQUEST 


000137 


033250 




3$: 


JMP 


3C4 


;PROCESS OTHER DRIVES 



RM TIMER ROUTINE 
CALL 

MOV *TIME,-(SP) 
JSR PC.RMTMR 



005737 030252 
001027 

112737 000001 030253 

104412 

005001 

005003 

005763 030270 
002406 

166663 000002 030270 
003002 

004737 034434 

005201 

005723 

022701 000010 

003362 

104413 

105037 030253 

012616 

000207 



RMTMR: 

1$: 

2S: 

3$. 
4$: 



TST ACTDRV 

BNE 4$ 

M0V8 #1,ACTSTR 

SAVREG 

CLR RI 

CLR R3 

TST TIMER(R3) 

BLT 2$ 

SUB 2(SP).TIMER(R3) 

BGT 2S 

JSR PC.STO 

INC RI 

TST (RD* 

CMP »8..R1 

BGT II 

RESREG 

CLR8 ACTSTR 

MOV (SP>*.(SP) 

RTS PC 



ELASPED TIME IN MILLISECONDS ON THE STACK 
CALL RM05 TIME ROUTINE 

CHECK "ACTDRV t ACTSTR" 
IF NON ZERO EXIT 
SET "ACTSTR" 
SAVE RO - R5 
START WITH DRIVE 0 

IS THE TIMER RUNNING? 
BR IF NO 

COUNT THE INTERVAL 
8R IF NO SOFTWARE TIMEOUT 
CALL SOFTWARE TIMEOUT ROUTINE 
MOVE TO iJEXT DRIVE 

OUT OF DRIVES? 
8R IF NO 
RESTORE RO - R5 

ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 
ADJUST THE STACK 
RE TURN 



SOFTWARE TIMEOUT ROUTINE 



NOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 
OR GREATER 



CALL 



STO 

nov 

JSR 

RETURN 



•DRVNtjM.RI 
PC. STO 



.-DRIVE NUMBER 
.-CALL 



VRMTBO W CMPT TST HAC»»0 i/(K.OO ' -4P9-8'' 

RH/W DRWER INITIALIZATION COD£ 



1016 


0344 34 


0101 'r6 






STO: 




1017 


034436 


010246 








«0V 


1018 


054440 


010346 










1019 


034442 


010446 








•ov 


1020 


034444 


013704 


030324 






«0V 


1021 


034450 


010164 


000010 






PUV 


^022 


034454 


004037 


054756 






JSR 


1023 


034460 


000012 








Rff)S 


1027 


034462 


034744 








ST09 


1028 


034464 


105726 








TST8 


1029 


034466 


100436 








m\ 


1030 


034470 


105761 


030226 




ST01: 


TST8 


1031 


034474 


001033 








BNE 


1032 


034476 


105761 


050256 






TST8 


1033 


034502 


001030 








8NE 


1034 


034504 


013702 


050246 






MOV 


1035 


034510 


020137 


030310 






CMP 


1036 


034514 


001404 








dEO 


1037 


034516 


000137 


054744 






JMP 


105« 


C34522 


004737 


036164 






JSR 


1039 


034526 


052762 


101000 


000016 


1$: 


BIS 


1040 


034 5 34 


004737 


055550 






JSR 


1044 


034540 


105061 


050176 






CLR8 


1045 


034544 


105061 


050254 






CLR8 


1046 


034550 


005037 


050246 






CLR 


1047 


034554 


012737 


Mim 


050310 




MOV 


1048 


034562 


000470 








BR 


1049 














1050 


034564 


116405 


000016 




ST02: 


M0V8 


1051 


034570 


136105 


030312 






BITS 


1052 


034574 


001007 








BNE 


1053 


034576 


105761 


030226 






TST8 


1054 


034602 


001021 








BNE 


1055 


034604 


105761 


03?36 






TST8 


105b 


034610 


001035 








BNE 


1057 


034612 


000454 








BR 


1058 














1059 


034614 


105761 


030226 




ST05: 


TST8 


1060 


034620 


001003 








BNE 


1061 


034622 


105761 


030236 






TST8 


1062 


034626 


001446 








BEQ 


1063 


034630 


012763 


Mm? 


050270 


If: 


MOV 


1064 


034636 


000442 








BR 


1065 














1066 


034640 


004737 






ST05: 


JSR 


1067 


034644 


000437 








BR 


1068 














1069 


034646 


105061 


050226 




ST06: 


CLR8 


lO-'O 


034652 


105061 


050206 






CLRB 


1071 


0346:"6 


012763 


^77777 


050270 




MOV 


1072 


034664 


004737 


056164 






JSR 


1073 


034670 
034672 


005702 








TST 


1074 


001424 








BEG 


1075 


034674 


052762 


140000 


000016 




BIS 


1076 
'077 


034702 


000414 








BR 














1078 


034 704 


012763 


1 777?7 


050270 


ST07: 


MOV 



B 11 
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Rl.-(SP) 

R2.-(SP) 

R5.-(SP) 

R4.-(SP) 

RKADR, R4 

R1.RMCS2(R4) 

R0,RO.RM 



SCO 0131 



SAVE Rl 
SAVE R2 
SAVE R^ 
SAVE R4 

GET ADDRESS Of "WCSV 

SELECT THE DRIVE 

READ "DRIVE STATUS REG" 



(S?)* 
ST02 

DPINT(RI) 

ST02 

DPRQS(RI) 
ST02 

TRNSUT.R2 

R1.DTUW 

1$ 

ST09 

PCGETREO 

«8JT15!BIT09. 

PC.SVRH70 

DRVACT(RI) 

IjLDfLG(RI) 

TRNSUT 

»'^ .DTUW 

ST09 

RMAS(R4),R5 

ATABIT(R1),R5 

ST05 

DPINT(RI) 
ST06 

DPRGS(R1) 

ST07 

ST09 

DPINT(RI) 
IS 

DPR0S{R1) 
ST09 

/r-1.TJMER(R3) 
ST09 

PC.CI8 
ST09 



IS •T>Ry"=i? 

BR IF YES 

TRYING TO INTIALIZE THE DRIVE "> 
BR IF YES 

OUTSTANDING PORT RfcOUEST OR THE DRIVE 
BR IF YES 

PICKUP TRANSFER WAIT QUEUE 
TPJSNSFER UNDERWAY ON THIS DRIVE' 
BR IF YES 

IF NOT DON'T BOTHER DRIVES 
GET DPS ADDRESS 
16(R2) ;SET THE ERROR FLAGS 
SAVE RH/RM REGISTERS 
DRIVE IS IDLE 
CLEAR THE UNLOAD FLAG 
CLEAi< DPS ADDRESS 
CLEAR THE TRANSFER DRIVE * 
DON'T BOTHER OTHER DRIVES 



READ ATTENTION REG 

IS ATTENTION FOR THIS DRIVE UP ? 

YES 

TRYING TO INTIALIZE THE DRIVE ? 
8R IF YES - DRIVE NOT ONLINE 
OUTSTANDING PORT REQUEST FOR THE DRIVE 
BR IF YES - NO RESPONSE TO REQUEST 
OTHER WISE EXIT 

INITIALIZING THE DRIVE ? 
BR IF INIT PENDING 
PORT REQUEST PENDING ? 
BR IF NOT 
STOP THE TIMER 
EXIT 

;G0 HANDLE THE PARITY ERROR 



; CLEAR THE INITIALIZE INDICATOR 
;SET UNIT OFFLINE 
;STOP THE TIMER 
;GET THE DPS ADDRESS 
;REQUEST IN QUEUE ? 
;8R IF NOT 

#8IT151BIT14.16(R2) .-INFORM THE USER DRIVE NOT AVAILABLE 
ST08 .-FINISH 



DPINT(RI) 
DRVSTA(RI) 
#-1. TIMER (R5) 
PCGETREO 
R2 
ST09 



#-1.TIMER(R5) .-STOP THE TIMER 



c n 
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RM/RM DRIVER INITIALIZATION CODE 



SEO 01 5^ 



1079 
1080 
081 
082 
083 
OW, 
085 
036 
0&<' 
088 
089 
090 
091 
092 
093 
094 
095 
096 
097 
098 
099 
100 
101 
102 
103 
lO'. 
105 
106 
107 
108 
109 

no 
111 

112 
113 
IK 
115 
116 
117 
118 



119 
120 
121 
122 
123 
12A 
125 
126 
127 
128 
129 
130 
131 
^ 52 



054712 
054716 
054722 
054724 
054726 
054754 
054740 
054744 
054746 
054750 
054752 
034754 



034756 
054764 
054766 
054774 
055000 
055002 
055004 
035006 
035014 
055020 
055024 
055050 
055052 
035036 
035042 
055044 
055046 
055050 
055050 
055054 
035056 
035062 
035064 
035070 
035072 
035074 
035076 
035102 
055104 
055112 
055116 
055120 
035122 
035124 
035126 



105061 
004737 
005702 
001407 
012762 
004737 
004757 
012604 
012605 
012602 
012601 
000207 



013737 
011646 
013737 
062037 
013727 
000000 
000000 
013766 
013746 
062716 
032736 
001037 
0177^6 
032716 
001002 
022620 
000452 

004057 
104003 
005737 
100405 
052716 
001402 
005726 
000415 
052716 
000516 
015757 
005257 
112657 
000000 
005527 
000005 
002324 



050256 
C36164 



100004 000016 

056070 

055550 



ST08- 
ST09: 



CLR8 

JSR 

TST 

6EQ 

MOV 

JSR 

JSR 

MOV 

MOV 

MOV 

MOV 

RTS 



DPRQS(RI) .-CLEAR PORT REQUEST INDICATOR 

PC.GETREO .-GET DPS ADDRESS 

R2 .-QUEUE ENTRY FOR DRIVE ? 

ST09 *BR IF NONE 

#8IT15!BIT2.16(R^) .INFORM USER OF PORT REQUEST ERROR 



PC.EMPTYQ 
PC.SVRH70 
(SP)*.R4 
(Sr>)*,R5 
(SP)*.R2 
(SP)*,R1 
PC 



CLEAR THE QUEUE FOR THE DRIVE 
SAVE THE REGISTERS 
RESTORE R4 
RESTORE R5 
RESTORE B2 
RESTORE R1 
RETURN 



ROUTINE TO READ A RH/RM REGISTER 
CALL 



050522 035124 RD.RM: 



030524 055002 
035002 



035004 000002 
030524 

000010 
010000 



RD.RM1 
RD.ADR 
RD.WRD 



173266 
020000 



056254 
030310 
040000 

040000 

050524 055120 
055'20 



1$: 



2$: 
3S: 

RD.RM2: 



JSR 


RO. RD.RM 


INDEX 




FRRADR 










MrPFMX RD RM? 


MOV 


(cp) -?sp) 


1 Iw V 


PMADR RD ADR 


ADD 


(RO)'f RD ADR 








0 




0 


MOV 


RD URD P(^P) 


MOV 


RMADR -(SP) 


ADD 


#RMCS2 (SP) 


PIT 


/irftrTiP a^sp)^ 




RD RM5 


MOV 


aRnADR.-(SP) 


BIT 


/W3IT13.(SP) 


But 


1$ 


CMP 


(SP>*,(RO)* 


BR 


RD.RM4 


JSR 


RO.ES.SAV 


EMT 


5 


TST 


DTUU 


BMI 


2S 


BIT 


*8in4.(SP) 


BEQ 


2S 


TST 


(SP)* 


BR 


RD.RM3 


BIS 


/W3IT14,(SP) 


SWAB 


(SP) 


MOV 


RMADR. 3S 


INC 


3S 


M0V8 


(SP)+,a(PC)* 


.WORD 


0 


DEC 


(PC)* 


.WORD 


5 


BGE 


RD.RM1 



GO READ A REGISTER 

REG. INDEX FROM BASE 

ERROR ADDRESS— PROCESS ERROR STARTING 

AT THIS ADDRESS 

CONTENTS OF REG. IS ON THE STACK 

MAX. RETRYS ALLOWED 

SAVE RO FOR RETURN 

FORM THE DESIRED ADDRESS 

USING THE BASE AND THE INDEX 

READ THE DESIRED REGISTER OF THE RM DRIVE 

ADDRESS IS FORMED HERE 

REG. CONTENTS PUT HERE 

RETURN IT TO THE USER 

PUT THE ADDRESS ON THE STACK 

FORM THE ADDRESS OF RMCS2 

CHECK THE 'NED' BIT 

8R IF DRIVE NON-EXISTENT 

READ RMCS1 

DID MCPE SET? 

BR IF YES 

ADJUST FOR RETURN 

EXIT 

SAVE THE ADDRESS IN 'SESCAPE* 
REPORT 'WCPE" ERROR 
DATA TRANSFER UNDERWAY? 
NO 

•7RE"' = 1 ? 
NO 

YES— CLEAN OFF THE STACK AND 

TAKE THE FATAL ERROR EXIT 

CLEAR 'WCPE" &Y SENDING A "1" TO "TRE" 

POSITION BEFORE WRITING 

FORM A&DRESS OF HIGH BYTE 

WRITE THE HIGH BYTE OF RMCSl 
A-DDRESS STORAGE 
tXCEEDED MAX. RETRYS 

BR IF NO 



CZRHTBO RM05/^/2 DR CMPT tsT »WCR0 vOi.OO 
RH/W DRiVfcR INITIALIZATION CODE 



4-APR-81 18.-12:15 
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SEQ 0133 



134 

135 

136 

137 

138 

139 

HO 

HI 

H2 

U3 

U4 

K5 

U6 

U7 

U8 

U9 

150 

151 

152 

153 

154 

155 

156 

157 

'58 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 
173 
174 
175 
176 
177 

178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 



035130 
035132 
035134 



035136 
035144 
035152 
035154 
035160 
035162 
035170 
035172 
035176 
035200 
035202 
035204 
035210 
035214 
035222 
035224 
035226 
035230 
035234 
035240 
035244 
035246 
035252 
035254 
035256 
035262 
035264 
035272 
035276 
035300 
035302 
035306 
035310 
035312 
035314 
035316 
035320 
035322 
035324 
035326 



011000 
012616 
000200 



RD.RH3: MOV 
flOV 

RD.R«4: RTS 



(RO).RO 

(SP)*,(SP) 

RO 



ROUTINE TO WRITE A REGISTER 



CALL 



MOV 

JSR 

INDEX 

ERRADR 

RETURN 



DATA,-(SP) 
RO.WRT.RM 



.-FATAL ERROR EXIT 



V 1 Jl J' 


0303?? 


035314 


URT RM: 


MOV 


MCPEMX,WRT.R2 


niAA37 


00000? 


035224 




MOV 


2(SP),WRT.WD 


V 1 c V ( o 








MOV 


(SP)*.(SP) 


ni?037 


C35226 






MOV 


(R0)*,WRT.AD 


noioi s 








BNE 


1S 


' C C r J • 


000150 

wv * */v 


035224 




CMPe 


/rl50,WRT.WD 


on?4i 1 








BLT 


IS 


004037 


034756 






JSR 


RO.RD.RM 


000000 








RMCSl 




035320 








URT.R3 




000316 








SWAB 


(SP) 


042716 


1 7777^ 






BIG 


/lf*C7,(SP) 


1 1 2637 


035225 






M0V8 


(SP)>, WRT.UD+1 


063737 


030324 


035226 


1$: 


ADD 


RMADR^WRT.AD 


012737 






URT.Rl : 


MOV 


(PC)*,a(PC)* 


000000 






WRT.UD: 


.WORD 


0 


000000 

www 






URT. AD : 


.WORD 


0 


013746 


030324 






MOV 


RMADR,-(SP) 


062716 


000010 






ADD 


*RMCS2, (SP) 


032736 


01 0000 






BIT 


*8IT12,a(SP)* 


001025 








BNE 


WRT.R3 


004037 


034756 






JSR 


RO.RD.RM 


000014 








RMERl 




035320 








WRT.R3 


*8IT03,(SP)^ 


032726 


000010 






BIT 


001420 








BEQ 


WRT.R4 


016037 




035276 




MOV 


-2(R0) ,1$ 


004037 


034756 






JSR 


RO,RD.RM 


000000 






It: 


.WORD 


0 


035320 








WRT.R3 


RO,ES.SAV 


004037 


036254 






JSR 


104004 








EMT 


4 


005726 








TST 


(SP)* 


005327 








DEC 


(PC)* 


000003 






WRT.R2: 


.WORD 


3 


002341 








BGE 


WRT.Rl 


011000 






URT.R3: 


MOV 


(RO) .RO 


000401 








BR 


WRT.R5 


005720 






WRT.R4: 


TST 


(R0) + 


000200 






WRT.R5: 


RTS 


RO 



DATA TO BE LOADED ON THE STACK 
CALL THE ROUTINE TO LOAD (WRITE) THE REG. 
INDEX OF THE REGiSTER TO BE LOADED 
ADDRESS TO RETURN TO ON AN ERROR 
ERROR FREE RETURN 

MAX RETRYS ALLOWED 
SAVE THE WORD TO WRITE 
ADJUST THE STACK 

GET INDEX OF REGISTER TO BE WRITTEN 
BR IF NOT RMCSl 

IS THE COMMAND FOR DATA TRANSFERS? 
YES— DON'T GET THE OLD A16 £ Al7, & PSEL 

NO COMBINE A16&A17. & PSEL WITH 

THE COMMAND BEFORE SENDING IT TO 
THE RH/RM 



FORM THE ADDRESS OF THE DISK REG. 

LOAD THE DESJRED REG. 

WORD TO WRITE GOES HERE 

ADDRESS IS FORMED HERE 

PUT THE ADDRESS ON THE STACK 

FORM THE ADDRESS OF RMCS2 

CHECK THE 'NED* BIT 

BR IF DRIVE NON-EXISTENT 

CHECK FOR PARITY ERROR ON WRITE 



8R IF •PAR=0" 
PICKUP THE INDEX 
READ THE REG. 
REG. INDEX 

RETURN TO THIS ADDRESS ON ERROR 

r^VE THE ADDRESS IN 'SESCAPE* 

REPORT THE PARITY ON WRITE ERROR 

CLEAR OFF THE STACK 

DECREMENT THE ERROR COUNT 

RETRY COUNTER 

TRY AGAIN IF NOT FINISHED 

TAKE THE "PARITY ON WRITE" ERROR EXP 

EXIT 

ADJUST FOR ERROR FrtEE EXIT 



ROUTINE TO SAVE THE RH/RM REGISTERS AS PER DP8*14 
CALL 



'•zr1tb0 rm05/3/2 dr cmpt tst macro v04.00 4-apr-81 
rh/rm drwer initialization code 



190 














1 191 










• 


1 CD 


1192 










SVRH/'O : 




119? 


035330 


104412 






SAvRtu 


1 194 


035332 


005702 








T C T 

IS 1 


1195 


035334 


001442 








DC A 


1 196 


035336 


01 3704 


030324 






n3v 


11 97 


035342 


1 1 1264 


rty\AA^ A 

00001 0 






MA\/0 

novo 


1 198 


035346 


016203 


A AAA 1 y 

0000 K 






MAW 

nov 


1 199 


035352 


001433 








OC A 


1200 


035354 


005037 


/\TC y 1 A 






r 1 D 


1201 


035360 


023727 


ATCy i A 

035410 


AAAA "3 T 

000022 


1»: 


trir 


1202 


035366 


AAi rv/vz. 

001006 










1203 


035370 
055 3 r6 


AT17Z. y 

032764 


AAA'^ AA 

000200 


AAAA 1 A 
000010 




Q f T 


1204 


AA1 AAT 

001002 










1205 


035400 


/\AC TT 

005023 










1206 


055402 


AAAy AC 

OOOA05 








on 


1207 


035404 


AAy AT 7 

004037 


AT/ 7CZ 

054/56 




<:*: 


1 CD 


1208 


055410 


AAA AAA 

000000 






T* . 


\ l^Dr^ 
,UUnU 


1209 


C35412 


ATC y T^ 

035456 








cc 
5* 


1210 
121 1 




A1 TT 

012623 








MA\/ 


AT C / 1 


A'5T7'37 
\JC5f df 


ATcy 1 A 
035*» 1 0 


AAAA/ A 






1212 


ATC / 'i/ 


f\r\^ / Az. 

001»»0o 








ot u 


■1 T 1 T 


ATC / "^Z. 

035426 


Az. O^T "7 


AAAAA"? 

OOOOU<r 


ATCy 1 A 

U35*» ' U 




ADD 


^ ^Is 


ATcy Tty 


AAA7C1 

l/OOr 5 1 








BR 


'21 5 


r\Tcy 7^ 
035*1 5o 


AAy 7T7 


AT^y X'i 




5$: 


JSR 




0334A<? 


1 Ay /IT 
10*»S 1 3 






6S: 


RESREG 






AAA'5A'7 

00020 r 








RTS 
















1230 










.■ROUTINE TO SE 


1231 










;CALL 




1252 












MOV 


1253 












JSR 














RETURN 


1235 














1236 


ATC y y 

055A46 


A1 Ay y 

0 1 0*ih6 






SET. IE: 


MOV 


125r 


ATC / C A 


A1 T7Ay 

01 3rO*i 


ATAT'D/ 

0305£*» 






MOV 


1238 


ATcy cy 


A1 At ^y 
0 10 lD*» 


0000 lU 






MOV 


1239 


ATCy ^A 


A1 1 y y 
Oi I*»*i6 








MOV 


1240 


ATCy ^ 


AC "^^l ^ 

05i:r 16 


Ay nnnn 
0*»0000 






BIS 




035466 


AAAT 1 

000316 








SUAB 


1242 


ATCy 7A 

0354^0 


1 1^r1*» 


AAA1 A A 
000100 






M0V8 


1243 


A7cy 7y 


0 V 'OH 


A1 nAAA 

01 0000 


AAAAI A 

OOOU 1 0 




BIT 


124A 


035502 


AA1 AAO 

OOlOOc 








BNE 


1245 


ATC coy 
05550A 


005^^:6 








TST 


1 "^y ^ 


035506 










BR 


1<;Ar 


ATCC1 A 
035 J 10 


1 1^664 


A AAAA 1 

000001 




1$: 


M0V8 


1248 


ATC C i / 

03551»« 


A1 OiLAy 

01260^ 






2$: 


MOV 


1249 


035516 


000207 








RTS 


1250 














1 c 5 1 










.-QUEUE 


COUNT 


1252 














1253 


035520 


000 






OCNT : 


.BYTE 


1256 


035521 


000 








.BYTE 


035522 
035523 
035524 


000 
000 
000 








.BYTE 
.BYTE 
.BYTE 



E 11 

18:12:15 PAGE 25-20 



SEO 0134 



#DP8NUM.R2 ;DP8 POINTER TO R2 

PC,SVRH70 .SAVE THE DRIVES REG'S 

'SAVE RO *' R5 
R2 -QUEUE ENTRY FOR THE DRIVE ? 

6S ;BR IF NONE 

RMADR R4 

(R2).RMCS2(R4) .-SELECT DRIVE 

14(R2).R3 ;GET THE ERROR TABLE POINTER 

6$ .-EXIT IF NO ADDRESS 

3$ .-COUNTER & POINTER 

3$.*RMDB .REACHED THE BUFFER REGISTER ? 

2$ ;BR IF NOT 

*8IT07,RMCS2(R4) .-'OR' SET ? 

2$ ;BR IF SET 

(^3)* .-STORE RMDB AS ZEROES 

4$ ; CONTINUE 

RO.RD.RM .-READ THE SELECTED REGISTER 

0 .REGISTER INDEX 

.-ERROR RETURN ADDRESS 
(SP)*,{R3)+ .-STORE THE REGISTER CONTENTS 
3$.;(rRMEC2 .-REACHED THE END ? 

6S ;8R IF YES 

*2.3$ .-INCREMENT THE REGISTER INDEX 

IS .-CONTINUE READING THE REGISTERS 

PC. CI 7 .PROCESS THE UNCORRECTABLE PARITY ERROR 

.-RESTORE RO - R5 
PC .-RETURN 

THE INTERRUPT WITHOUT GETTING A "ThE" 

#0RVNUM,R1 .-DRIVE NUMBER TO Rl 

PC. SET. IE .-SET "IE" 



R4.-(SP) ;SAVE R4 

RMADR,R4 .PICKUP ADDRESS OF RMCSl 

R1.RMCS2(R4) .-SELECT DRIVE 

(R4>,-<SP) .READ RMCSl 

#8m4,(SP) .-SET THE "TRE" BIT OF THE WORD READ 

(SP) ; ADJUST FOR DATO 

<«IT06,(R4) .-SET "IE" 

«3IT12,R«CS2CR4) ;IS ■NED"=1? 

1$ ; YES— CLEAR 'TRE" 

(SP)* .-CLEAN OFF THE STACK 

2$ 

(SP)>.1(R4) .-CLEAR 'TRE" 

(SP)*.R4 .RESTORE R4 

PC .-RETURN TO CALLER 



0 .-DRIVE 0 

0 .-DRIVE 1 

0 .-DRIVE 2 

0 ;DRIVE 3 

0 .-DRIVE 4 



CZRrtTBO RM05/5/? DR CMPT TST tV^CRO v04.00 
RH/RM DRIVER INITIALIZATION CODE 



1257 
1258 
1259 
1260 
1263 



126A 
1265 
'266 
1267 
1270 



1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1286 



1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
^296 
1297 



035525 
035526 
055527 



035530 
035532 
035534 
035536 
035540 
035542 
035544 
035546 



03S550 
035552 
C35554 
035556 
035560 
035562 
035564 
035566 

035570 
035572 
035574 
035576 
035600 
035602 
035604 
035606 
035610 



035612 
035632 
035652 
035672 
035712 
035732 
035752 
035772 



036012 
036014 
036020 
036022 



000 
000 
000 



035612 
035632 
035652 
035672 
035712 
035752 
035752 
035772 



035612 
035632 
035652 
035672 
035712 
035732 
035752 
035 772 

035612 
035632 
035652 
035672 
035712 
035732 
035752 
035772 
036012 



036012 



104412 

012702 035520 

005022 

005022 



4-APR-81 18:12:15 



.BYTE 0 
.avTE 0 
.BYTE 0 



F 

PAGE 



11 

25-21 



.•QUEUE INPUT POINTERS 



QJNPT; 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



QDRVO 
QDRV1 
QDRV2 
QDr'<V3 
QDRV4 
QDRV5 
0DRV6 
QDRV7 



.■QUEUE OUTPUT POINTERS 



QOUTPT: .WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



QSTART: 
QSTOP: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



QDRVO 
QDRV1 
QDRV2 
QDRV3 
QDRV4 
QDRV5 
QDRV6 
QDRV7 

QDRVO 
QDRVl 
QDRV2 
QDRV3 
QDRV4 
QDRV5 
QDRV6 
0DRV7 
QTERM 



.•DRIVE REQUEST QUEUES 



QDRVO; 
QDRVl : 
QDRV2: 
QDRV3: 
0DRV4 : 
QDRV5 : 
0DRV6: 
QDRV7: 
QTERM=. 



.8LKW 
.8LKW 
.8LKW 
.BLKW 
.8LKU 
.SLKW 
.8LKW 
.8LKW 



10 
10 
10 
10 
10 
10 
10 
10 



DRIVE 5 
DRIVE 6 
DRIVE 7 



DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 



DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 



0 
1 
2 
3 
4 
5 
6 
7 



0 
1 
2 
3 
4 
5 
6 
7 



DRIVE 0 START ADDRESS 
DRIVE 0 STOP ADDRESS & DRIVE 
STOP DRIVE 1— START DRIVE 2 
STOP DRIVE 2— START DRIVE 3 
STOP DRIVE 3— START DRIVE 4 
STOP DRIVE 4— START DRIVE 5 
STOP DRIVE 5— START DRIVE 6 
STOP DRIVE 6— START DRIVE 7 
STOP DRIVE 7 



1 START ADDRESS 



ROUTINE TO CLEAW ALL OF THE REQUEST QUEUES 



CALL 



JSR 



CLRQUE: SAVREG 
MOV 
CLR 
CLR 



PC, CLRQUE 



#QCNT.R2 

(R2)> 

(R2)> 



SAVE RO - R5 
ZERO THE QUEUE COUNTS 
DRIVES 0 I 1 
DRIVES 2 8 3 



'zhmtbo rm05/5/2 or cmpt jsj mav.po 
rh/rm driver initialization code 



1298 
1299 

noo 

1301 
1302 
1303 
1304 
1305 
1306 
1507 
1508 
1309 
1510 
1511 
15^2 
1515 
15U 
1515 
1516 
1517 
1518 
1519 
1520 
'521 
1522 
1525 
1524 
1325 
1526 
1527 
1528 
1329 
1550 
1551 
1332 
1355 
1534 
1355 
1556 
1557 
1558 
1559 
1540 
1541 
1542 
1545 
1544 
1545 
1346 
1347 
1548 
1349 
1350 
1351 
1352 
1355 
15S4 



036024 
056026 
056050 
056054 
036040 
056042 
056044 
056046 
036052 
056056 
056060 
056062 
056064 
036066 



056070 
056074 
056076 
056104 
056106 



005022 
005022 
012705 
012701 
012122 
005505 
001575 
012703 
012701 
012122 
005503 
001575 
104415 
000207 



000010 
055570 



000010 
055570 



105061 
006301 
016161 
006201 
000207 



055520 
055550 



055550 







6 11 




V04.00 4 


-APR-81 


18:12:15 PAGE 25- 


22 




CLR 


(R2)* 


.•DRIVES 4 i 5 




CLR 


(R2)* 


.•DRIVES 6 fc 7 




MOV 


*3. ,R5 


.•MOVE THE STARTING 




MOV 


*QSTART.R1 


.•ADDRESS OF THE QUEUE INTO 


IS: 


MOV 


(R1)*,(R2>* 


.•THE QUEUE INPUT POINTER 




DEC 


R5 






BNE 


n 






MOV 


fm. ,R3 


;MOVE THE STARTING ADDRESS 




MOV 


*QSTART,R1 


;0F THE QUEUE INTO THE 


2$: 


MOV 


(Ri)*,(R2)* 


.•QUEUE OUTPUT POINTER 




DEC 


R3 




BNE 


2$ 






RESRcG 




.•RESTORE RO - R5 




RTS 


PC 




.-EMPTY 


THE QUEUE SPECIFIED BY R1 


; CALL 










MOV 


DRVNUM,R1 


.•DRIVE NUMBER TO Rl 




JSR 


PCEMPTYQ 




EMPTYQ: 


CLR8 


QCNT(Rl) 


.•CLEAR NUMBER OF ITEMS IN 




ASL 


Rl 






MOV 


QINPT(R1),Q0UTPT(R1) ;SET OUTPUT QUEUE 




ASR 


Rl 






RTS 


PC 





SEO 0156 



ROUTINE TO PUT A REQUEST IN QUEUE 



CALL 



MOV 
MOV 

JSR 

RETURNl 
RETURN2 



036110 


122761 


000010 


055520 


ORVOUE : 


CMP8 


036116 


001421 








BEG 


036120 


105261 


035520 






INC8 


036124 


006501 








ASL 


036126 


010271 


035330 






MOV 


056152 


062761 


000002 


035530 




ADD 


056140 


026161 


055530 


055572 




CMP 


056146 


001005 








BNE 


056150 


016161 


035570 


055550 




MOV 


056156 


006201 






1$: 


ASR 


056160 


005720 








TST 


056162 


000200 






2$: 


RTS 



*DRVNUM,R1 

*DP8,R2 

RO.DRVQUE 



*10.QCNT(R1) 
2$ 

QCNT(Rl) 
Rl 

R2.aQINPT(Rl) 
#2.QINPT(R1) 



.•DRIVE NL^BER 

.•ADDRESS OF PARAMETER BLOCK 
;60 PUT REQUEST IN QUEUE 
;RETURN HERE IF QUEUE IS FULL 
.•RETURN HERE IF REQUEST IS IN QUEUE 

;IS QUEUE FULL? 

;8R IF YES-TAKE RETURNl 

.•INCREMENT QUEUE COUNT 



;P<JT THIS REQUEST IN QUEUE 
.•UPDATE THE QUEUE POINTER 
QINPT(R1),QST0P(R1) ;TIME TO RESET THE POINTER 
1$ ;8R IP NO 

QSTART(R1),QJNPT(R1) ; YES— RESET POINTER 
Rl 

(RO)* ;TAKE RETURN 2 

RO .-RETURN TO USER 

ROUTINE TO GET THE "DPB" ADDRESS OF NEXT REQUEST IN QUEUE 



CALL 



MOV 
JSR 

RETURN 



ffDRVNUM.Rl 
PC.GETREQ 



DRIVE NUMBER TO Rl 

GO GET THE REQUEST 

R2="DPB" ADDRESS OF THE REQUEST 

R2=0 IF NO REQUEST IN QUEUE 



TRMTBC RM05/5/? DR CMPT TST MACRO 
f?H/RM DRIVER INITlAl IZATION CODE 



VOA.OO A-APR-81 18:'?: 15 



H 

PAGE 



n 

25-23 



SCO 0157 



^555 
'556 
1357 
1358 
1359 
1360 
1361 
1562 
1365 
1564. 
1365 
13o6 
1367 
1568 
1569 
1370 
1371 
1572 
1573 
157<, 
1375 
1376 
1577 
1378 
1579 
1380 
1382 
1583 
1584 
1585 
1386 
158/ 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 



056164 005002 

036166 105761 C35520 

056172 001404 

036174 006301 

036176 017102 035550 

036202 006201 

056204 000207 



;IS THERE ANY REQUEST IN QUEUE" 
;N0 



056206 


105561 


035520 




POPQUE: DEC8 


056212 


006501 






ASL 


056214 


017102 


055550 




MOV 


056220 


005071 


055550 




CLR 


C36224 


062761 


0C0002 


055550 


ADD 


036232 


026161 


055550 


035572 


CMP 


036240 


001003 






BNE 


056242 


016161 


035570 


055550 


MOV 


056250 


006201 






IS: ASR 


036252 


000207 






RTS 



GETREQ: CLR R2 

TST8 OCNKRI) 

BEQ 2$ 

1$: ASL R1 

MOV aOOUTPT(R1).R2 .-PICKUP 'DPS ' POINTER FOR THIS DRIVE 

ASR R1 

2%. RTS PC .-RETURN TO USER 

ROUTINE TO "POP" THE REQUEST FROM QUEUE 
CALL 

MOV *DRVNUM.R1 ; DRIVE NUMBER TO R1 

JSft PC. POPQUE .-CALL TO REMOVE REUUEST 

RETURN ;R2=ADDRESS OF DP8 REMOVED 

.-DECREMENT QUEUE COUNT 



QfNT(RI) 
R1 

aQ0UTPT(R1).R2 
aQOUTPT(RI) 
ff2.Q0UTPT(R1) 



;GET THE "DPS" POINTER 
.•REMOVE DPS ADDRESS FROM THE QUEUE 
.-UPDATE THE QUEUE POINTER 
QOUTPT(R1).QST0P(R1) ;TiME TO RESET THE POINTER? 
1$ ;N0— 8R TO EXIT 

QSTART(R1).Q0UTPT(R1) ; YES— RESET THE POINTER 
R1 

PC .-RETURN TO USER 

ROUTINE TO SAVE THE CONTENTS OF 'SESCAPE' WHEN THE DRIVER 
REPORTS AN ERROR DIRECTLY. 



CALL 



JSR 

ERROR 

RETURN 



036254 012037 056270 

056260 013746 001200 

036264 005037 001200 

036270 000000 

036272 012637 001200 

036276 000200 



ES.SAV: MOV 
MOV 
CLR 

1$: .WORD 
MOV 

RTS 



RO. ES.SAV 
N 



(R0)*.1S 
$ESCAPE.-(SP) 
$E SCAPE 
0 

(SP>*.$ESCAPE 
RO 



.-THE ERROR CALL 

THE RETURN IS PAST THE ERROR CALL 

GET THE ERROR CALL 

SAVE THE ADDRESS IN 'SESCAPE' 

CLEAR THE ESCAPE RETURN 

THE ERROR CALL IS MOVED HERE 

RESTORE THE ESCAPE ADDRESS 

RETURN 



CZWTBO RM05/?/i DR CMPT TST IIACRO V04.00 
BUSADR - GET Bus ADDRESS AND VECTOR ADDRESS 



I 11 

A-APR-81 18:V:15 PAGE 



SfO 01 



2 
5 
4 

S 

6 
7 
8 
9 

^0 
1 1 

1^ 

13 036500 
H 036302 

15 036306 

16 036312 

17 0363K 

18 036316 
^9 056322 
ZO 056524 

21 036326 

22 036332 

23 05633A 
2A 0365A0 

25 05634A 

26 0563A6 

27 036350 

28 036354 

29 036356 

30 036360 
51 036364 

32 056366 

33 036372 

34 036376 

35 036402 

36 036410 

37 036414 

38 036420 

39 036422 
^0 036424 

41 036426 

42 036432 
4 3 036434 

036434 
44 036436 
4i 036442 

46 036444 

47 036446 
48 

49 036450 

50 036457 
51 

52 
53 
S4 
55 
56 



104412 
012700 
104401 
011046 
1 04402 
104401 
104411 
012601 
004537 
000763 
012700 
104401 
011046 
104402 
104401 
104411 
012601 
004537 
000763 
012700 
012701 
013705 
012737 
005777 
010537 
012021 
012021 
000407 
012716 
000002 

104006 
010537 
000717 
104413 
000207 

122 
122 



001276 
036450 



042752 



036466 

001 300 
036457 



042752 



036466 

001276 
030324 
000004 
036426 
142662 
000004 



036434 



000004 



115 
115 



000004 



.sarri busadr - get bus address and vector address 

THIS ROUTINE IS USED TO INSURE THE BUS ADDRESS 
OF THE RH/RM IS SETUP FOR THE PROPER ADDRESS. 
IT WILL ALSO READ THE ADDRESS FROM THE TTY IF 
REQUIRED. 

NOTE: THIS ROUTINE DESTROYS R0-R4 
CALL 



IS: 



2$: 



3$: 



4$: 
5$: 



6$: 



'03 MRMCSl: 
126 MRMVEC: 



JSR 


PC. BUSADR 




RETURN 






SAVREG 


.•SAVE ALL REG 


MOV 


#$RMADR,RO 


FIRST ADDRESS 


TYPE 


.MRMCS1 


"RMC$^=" 


MOV 


(RO),-(SP) 


PRESENT RMCSl ADDRESS 


TYPOC 




TYPE IT 


TYPE 


,8LNKS1 ! 


TYPE 1 BLANK 


RDLIN 




GET THE ENTRY 


MOV 


(SP)+,R1 ! 


ADDRESS OF ASCII TEXT 


JSR 


R5,CK.NUM 


ENTER AND STORE THE NEW ADDRESS 


BR 


1S 


■ERROR EXIT 


MOV 


#$RMVEC.RO 


■VECTOR ADDRESS 


TYPE 






MOV 


(RO).-(SP) 


• PRESENT RH/RM VECTOR ADDRESS ON THE 


TYPOC 




•TYPE IT 


TYPE 


.8LNKS1 


•TYPE 1 BLANK 


DIM IIU 




■READ THE ENTRY 


MOV 


(SP)*,R1 


•ASCII TEXT ADDRESS 


JSR 


R5,CK.NUM 


; ENTER AND STORE NEW ADDRESS 


BR 


2S 


'ERROR EXIT 


MOV 


fSR/IADR.RO 


•FIRST ADDRESS OF NEW PARAMETERS 


MOV 




:FIRST ADDRESS OF WHERE TO PUT THEM 


MOV 


aifERRVEC,R5 


;SAVE ERROR VECTOR 


MOV 


#4$.a#ERRVEC 


;LQAO NEW VECTOR ADDRESS 


TST 


aSRKADR 


;LE6AL I/O ADDRESS ? 


MOV 


RS.a4rERRVEC 


; YES, IF NOT TRAP TO TIMEOUT 


MOV 


(R0)*.(R1)* 


;LOAD THE BUS ADDRESS 


MOV 


(R0)*.(R1)* 


;LOAD VECTOR ADDRESS 


BR 


6$ 


;COMMON EXIT 


MOV 


#5$,(SP) 


•SET RETURN ADDRESS 


RTl 




•RETRUN FROM TIME OUT TRAP 


FMT 


6 




MOV 


R5.aifERRVEC 


; RE STORE THE TIME OUT TRAP 


BR 


IS 


;TRY AGAIN 


RESREG 




;RESTORE ALL REG 


RTS 


PC 





.ASCIZ 
.ASCIZ 



aRMCsi=a 
aRMvEC=a 



S8TTL CK.NUM - CHECK NUMBER (OCTAL) 

THIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS 
AND FORMS AN OCTAL NUMBER IN R2 
CAl L : 

MOV *ADR.R1 .-ADDRESS OF ASCIZ STRING 



CZRMTBO RM05/^/^ DR CMPT TST WACRO v04.00 4-APR-81 
CK.NUM > CHECK NUMBER (OCTAL) 



57 








• 


JSR 


58 










RET 


59 








• 


RET 


60 


036A66 


010246 




CK.NUM: 


MOV 


61 


036470 


010346 






MOV 


62 


036472 


010446 






MOV 


63 


036A74 


012703 


000006 




MOV 


6A 


036500 


005002 






CLR 


65 


036502 


112104 




1$: 


M0V8 


66 


03650A 


001424 






BEQ 


67 


036506 


120427 


000060 




CMP8 


68 


036512 


103425 






BLO 


69 


0365U 


120427 


000067 




CMP8 


70 


036520 


101022 






BHI 


71 


036522 


006302 






ASL 


72 


036524 


103420 






BCS 


73 


036526 


006302 






ASL 


7A 


036530 


103416 






BCS 


75 


036532 


006302 






ASL 


76 


C36534 


103414 






BCS 


77 


036536 


042704 


1 7777^ 




BIG 


78 


036542 


060402 






ADD 


79 


036544 


005303 






DEC 


80 


036546 


001401 






BEQ 


81 


036550 


000754 






BR 


82 


036552 


112104 




2$: 


M0V8 


83 


036554 


001004 






BNE 


8A 


036556 


005702 




3$: 


TST 


85 


036560 


001402 






BEQ 


86 


036562 


010210 






MOV 


87 


036564 


005725 




';$: 


TST 


88 


036566 


012604 




5$: 


MOV 


89 


036570 


012603 






MOV 


90 


036572 


012602 






MOV 


91 


036574 


000205 






RTS 
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SEO 0159 



R5, CK.NUM ;R5 CHANGED 

.ERROR EXIT 
;NORMAL EXIT 



R2.-(SP) ; 


SAVE R2 


R3.-(SP) 


SAVE R3 


R4.-(SP) 


SAVE R4 


#6.R3 ; 


MAX OCTAL DIGITS IN THE NUMBER 


R2 


FINAL OCTAL VALUE 


(R1)+.R4 


GET CURRENT POINTED RVTE 


3$ 


8RANCHJF TERMINATOR DETECTED 


R4.*'0 


SMALLER THAN ASCII-0 ? 


5S 


YES. ERROR EXIT 


R4,4'7 


LARGER THAN ASCI 1-7 ? 


5$ 


YES. ERROR EXIT 


R2 


SHIFT LEFT 


5$ 




R2 


•ONE 


5$ 




R2 


■OCTAL DIGIT 


5$ 


; ERROR IF CARRY BIT SET 


*1 77770, R4 


;CHOP OFF HIGHER BITS 


R4.R2 


;APPENDING CURRENT DIGIT TO NUMBER 


R3 


; DECREMENT BYTE COUNT 


2$ 


;8RANCH,IF LAST BYTE 


IS 


.•LOOPING BACK 


(R1)+,R4 


.•CHECK TERMINATOR 


5$ 


;EP"OR EXIT 


R2 


.•FINAL VALUE = 0 


5$ 


;YES. TAKE ERROR EXIT 


R2.(R0) 


.•REPLACE THE ORIGINAL VALUE 


(R5;^ 


.•ADJUST FOR NORMAL RETURN ' 


(SP)*.R4 


.•RESTORE R4 


(SP)*,R3 


.-RESTORE R3 


(SP)*,R2 


.■RESTORE R2 


R5 


.EXIT 



CZRMTBO RM05/3/? DR CMPT TST MACRO VGA-OO A-APR-8 
ERROR MESSAGES 



1 










.S8TTL ERROR 


2 
3 


036576 


■"22 


110 


040 


EMI : 


.ASCI 


4 


036635 


125 


116 


105 


EM2: 


.ASCI 


5 


036673 


115 


101 


123 


EM3: 


.ASCI 


6 


036731 


115 


101 


123 


EM4: 


• ASCI 


7 


036766 


101 


104 


104 


EM5: 


.ASCI 


8 


037022 


122 


110 


040 


EM6: 


.ASCI 


9 


037062 


125 


116 


103 


EM10 


.ASCI 


10 


037125 


106 


101 


124 


EMI 1 . 


.ASCI 


11 


037160 


120 


105 


122 


EMI 2 


.ASCI 


12 


037211 


117 


120 


105 


EMI 3 


.ASCI 


13 


037263 


104 


122 


111 


EMI 4 


.ASCI 


U 


037306 


116 


117 


040 


EMI 5 


.ASCI 


15 


037542 


110 


105 


101 


EM20. 


.ASCI 


16 


037363 


104 


101 


124 


EM21 . 


.ASCI 


17 


037414 


127 


122 


111 


EM22 


.ASCI 


18 


037467 


127 


122 


111 


EM23 


A f ^ f 

.ASCI 


19 


037546 


110 


105 


101 


EM24 


.ASCI 


20 


0376 14 


110 


105 


101 


EM25 


A C ^ f 

.ASCI 


21 


037675 


106 


117 


122 


tncb 


A C ^ T 

.ASCI 


22 


037722 


110 


105 


101 


EM27 


A C ^ f 

.ASCI 


23 


037757 


115 


111 


123 


EM30 


.ASCI 


24 


040011 


117 


120 


105 


cM3 1 


.A5CJ 


25 


040054 


104 


122 


111 




* c r T 
.ASCi 


26 


040107 


120 


101 


122 




A cr T 

.A5C J 


27 


040164 


127 


122 


111 


CMJ*» 


A C r T 

.ASCI 


28 


040226 


111 


116 


126 


EM3D 


.ASCI 


29 


040264 


127 


122 


111 


EMj6 


A f /* t 

.ASCI 


30 


040315 


104 


101 


124 




.ASCI 


31 


040377 


122 


110 


040 


CM/ A 


A c r T 

-ASC J 


32 


040446 


102 


125 


123 


EM41 


.ASCI 


33 


040512 


104 


101 


124 


CM/ O 


A C T 

.ASCi 


3A 


040573 


103 


101 


116 


CM/ 1 


A c r T 
.ASCi 


35 


040640 


105 


122 


122 


EM44 


.ASCI 


36 


040722 


105 


103 


103 


EM45 


.ASCI 


37 


041010 


102 


125 


123 


EM46 


.ASCI 


38 


041062 


123 


105 


105 


EM50 


.ASCI 


39 


041120 


120 


122 


117 


EM51 


.ASCI 


40 


041163 


104 


122 


111 


EM60 


.ASCI 


41 


041206 


040 


040 


000 


EM61 


.ASCI 


42 










.EVEN 
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SEO 0140 



MESSAGES 

/RH INTERRUPT OCCURRED (RMAS=0)/ 
/UNEXPECTED ATTENTION OCCURRED/ 
/MASS8US PARITY ERROR (MCPE=1)/ 
/MASS8US PARITY ERROR (PAR=1)/ 
/ADDRESS PLUG CHANGE BIT SET/ 
/RH DIDN'T RESPOND TO ADDRESSING/ 
/UNCORRECTABLE MASSBUS PARITY ERROR/ 
/FATAL MASSBUS PARITY ERROR/ 
/PERSISTENT DEVICE UNSAFE/ 
/OPERATION NOT COMPLETED WITHIN TIME LIMIT/ 
/DRIVE WENT OFFLINE/ 
/NO RESPONSE 10 PORT REQUEST/ 
/HEADER CRC ERROR/ 
/DATA CHECK CDCK') ERROR/ 

/WRITE CHECK ERROR - DATA CHECK CDCK') SET/ 
/WRITE CHECK ERROR - DATA CHECK CDCK') NOT SET/ 
/HEADER READ ERROR - 'FMT' BIT DROPPED/ 
/HEADER READ ERROR - HEADER COMPARE ('HCE') ERROR/ 
/FORMAT ERROR C'FER')/ 
/HEADER COMPARE CHCE') ERROR/ 
/MISCELLANEOUS DRIVE ERROR/ 
/OPERATION INCOMPLETE COPD ERROR/ 
/DRIVE TIMING C'DTE') ERROR/ 

/P/y^ITY ('PAR') ERROR AFTER OPERATION STARTED/ 
/WRITE CLOCK FAILURE CWCF') ERROR/ 
/INVALID ADDRESS CIAE") ERROR/ 
/WRITE LOCK CWLE') ERROR/ 

/DATA CHECK CDCK') SET DURING WRITE CHECK COMMAND/ 
/RH CONTROLLER OR UNI8US TRANSFER ERROR/ 
/BUS ADDRESS OR WORD COUNT INCORRECT/ 
/DATA COMPARE ERRORS - NO OTHER ERROR (S) DETECTED/ 
/CAN'T MATCH DATA READ WITH A PATTERN/ 
/ERROR BIT(S) SET. BUT NO ERROR SIGTMLED BY THE RH/ 
/ECC LOGIC FAILURE - POSITION REGISTER VALUE NOT VALID/ 
/BUS ADDRESS AND WORD COUNT NOT CONSISTENT/ 
/SEEK INCOMPLETE CSKD ERROR/ 
/PROGRAM DETECTED POSITIONING ERROR/ 
/DRIVE UNSAFE ERROR/ 
/ / 



CZRMTBO RM05/5/2 OR CMPT rST 
EPROR MESSAGES 

1 041212 122 ll"^- 

2 041221 104 122 

3 041303 104 122 

4 041334 104 122 

5 041376 122 115 

6 041407 104 122 

7 041460 122 115 

8 041551 122 115 

9 041602 122 115 



10 

n 






12 041634 


001 326 


000000 


13 041640 


001224 


030166 


14 041656 


001224 


035002 


15 041666 


001224 


035226 


16 041^00 


030324 


000000 


17 041704 


001224 


004526 


18 041720 


004536 


004540 


19 041734 


004552 


004554 


20 041750 


004570 


004572 


21 






22 041760 


000 




23 041761 


000 


000 


24 041767 


000 


000 


25 041772 


000 


000 


26 







flACRO V04.0C 4-APR-81 



101 
IM 


DHl : 


.ASCIZ 


DH2 : 


.ASCJZ 


111 


DH3. 


.ASCIZ 


111 


DH4: 


.ASCIZ 


101 


DH6: 


.A*>CiZ 


111 


DH7: 


.ASCIZ 


103 


DHIO: 


.ASCIZ 


115 


DH11: 


.ASCIZ 


105 


DHl 2: 


.ASCIZ 



.EVEN 





DTI 


.WORD 


030170 


DT2 


.WORD 


035004 


DT3 


.WORD 


035224 


DT4 


.WORD 




DT6 


.WORD 


004530 


DT7 


.WORD 


004542 


DT10: .WORD 


004560 


DT11: .WORD 


004574 


DTI 2: .WORD 




DFl 


.8YTE 


000 


DF2 


.BYTE 


000 


DF3 


.8VTE 


000 


DF4 


.8YTE 



.EVEN 
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/RMAS 


/ 










/DRIVE 


RMDS 


RMER1 






RMAS 


/DRIVE 


REG ADR 


DATA 


/ 






/DRIVE 


REG ADR 


GOOD 


BAD 


/ 




/RWADR 


/ 










/DRIVE 


RMCSl 


RMWC 


RM3A 


RMDA 


/ 


/RMCS2 


RMDS 


RMERl 


RMAS 


RMD8 


/ 


/RMMR1 


RMDT 


RMOF 


RMDC 


RMMR2 


/ 


/RMER2 


RMECl 


RMEC2 


/ 







ATTN.O 

DRIVE, RMERRS,RMERRS*2,RMERRS+4,R«ERRS*6,^TTN.O 
DRIVE, RD. ADR, RD.WRD.O 
DRIVE,WRT.AD.WRT.WD,RD.WRD,0 
RMADR,0 

DRIVE,RM.RE6,RM.REG*2,RM.REG*4,ra>1.RE6*6,0 
RM.RE6*10.RM.REG*12,RM.REG*14,RM.REG*16,RM.REG*22,0 
RM.REG*24,RM.R£G*26.RM.REG*32,RM.ftEG*34,R/>1.REG*40,0 
RM.REG*42,RM.REG*44.RM.REG*46,0 

0 

0,0,0,0,0,0 

0,0,0 

0.0,0,0 



CZRMT80 RM05/V2 OR fMPT 
ERROR MESSAGES 



TST 



MACRO V04.00 4-APR-81 



1 


041776 


123 


125 


102 


MESGI : 


.ASCI2 


2 


042006 


104 


'22 


111 


MESG2: 


.ASCI2 


y 


042021 


052 


052 


040 


MESG3: 


.ASCJ2 


I, 


042045 


200 


115 


117 


nESG4: 


.ASCI2 


5 


042073 


101 


116 


104 


MESG8: 


.ASCi; 


6 


042106 


124 


131 


120 


MESG9: 


.ASCI2 


7 


042142 


200 


104 


122 


MESGI 0 


: .ASCii 


8 


042207 


200 


120 


101 


MESGI 1 


: .ASCI 2 


9 


042272 


125 


116 


114 


MESGI 2 


: .ASCI 2 


10 


042310 


040 


101 


116 


MES613 


: .ASCI J 


11 


042331 


124 


131 


120 




.ASCJi 


12 


042356 


052 


052 


040 


ME SGI 4 


: .ASCIi 


13 


042402 


052 


052 


040 


MESGI 5 


: .ASCJi 


K 


042443 


123 


103 


117 


MESG16 


: .ASCIJ 


15 


042465 


040 


040 


040 


MESGI 7 


: .ASCJi 


16 


042546 


040 


040 


040 


MESGI 8 


: .ASCJi 


17 


042630 


123 


105 


114 


SELFX: 


.ASCJi 


18 


042635 


Oil 


000 




TAB: 


.ASCJi 


19 


042637 


052 


040 


060 


MARKX: 


.ASCJi 


20 


C42644 


042 


000 




OUOTM: 


.ASCJi 


21 


042646 


054 


040 


000 


COMMA : 


.ASCJi 


22 


042651 


127 


111 


114 


MES65: 


.ASCJi 


23 


042664 


117 


116 


040 


MESG6: 


.ASCJi 


24 


042670 


200 


111 


123 


MES67: 


.ASCJi 


25 


042741 


131 


200 


000 


Y: 


.ASCJi 


26 


042744 


116 


200 


000 


N: 


.ASCJi 


27 


042747 


040 






BLNKS4 


: .ASCI- 


28 


042750 


040 






BLNKS3 


: .ASCJ. 


29 


042751 


040 






BLNKS2 


: .ASCJ. 


30 


042752 


040 


000 




BLNKS1 


: .ASCJ- 


31 


042754 


072 


000 




COLON: 


•ASCJi 


32 


042756 


040 


057 


040 


SLASH: 


.ASCJ- 


33 


042762 


077 


000 




OUES: 


.ASCJi 


34 


042764 


040 


102 


101 


MESG19: .ASCh 


35 


043004 


124 


105 


123 


MESG20: .ASCI- 


36 


043022 


200 


052 


052 


STARS: 


.ASCJi 


37 


043044 


104 


122 


111 


MES621 


: .ASCI 


41 


043106 


007 


120 


122 


HALTX: 


.ASCIi 


42 


043125 


104 


122 


111 


HALT1: 


.ASCii 


43 


A/ T1 7L. 




I <:<: 


111 

1 1 1 


HAL T2: 


.ASCL 


44 


043243 


106 


101 


124 


XFATL: 


.ASCL 


43 


n/ 70C7 


<:UU 






NEDCLK: .ASCJ 


46 


043326 


040 


077 


104 


QDRIV: 


.ASCI 


47 


043336 


040 


.11 


123 


LODEV: 


.ASCi 


48 


043356 


040 


077 


103 


NOTST: 


.ASCJi 


49 

50 
51 










• EVEN 




52 


043456 








BUFFER: 


53 














54 




000200 






.END 


200 
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SEO 01 

/SteSYS / 
/DRJVE(S): / 

STARTING PASS 1 / 
<CRLF>/MOUNT PACK ON DRIVE / 
/AND LOAD. / 

/TYPE <CR> WHEN DRIVE READY./ 

<CRLF>/DRIVE IS NOT READY, TEST IS ABORTED/ 

<CRLF>/PACK IS NOT ACCEPTABLE. CHANGE PACK AND FRY AGAIN/ 

/UNLOAD DRIVE / 

/ AND REMOVE PACK/<CRLF> 

/TYPE <CR> WHEN DONE./ 

/•• STARTING PASS 2 / 

/•• ALL DRIVES ARE COMPATIBLE ••/<CRLF> 
/SCORES FOR DRIVE / 

/ TRACK DRIVE OVRWRT OVRWRT READ READ/ 
/ NUMBR READ OFST- OFST* OFST- OFST*/ 
/SELF/ 
<HT> 

/• 0/<HT> 

/"/ 

/. / 

/WILL TEST / 
/ON / 

<CRLF>/IS THERE ANOTHER SUB-SYSTEM (Y OR N) ■> / 

/Y/<CRLF> 

/N/<CRLF> 

/ / 

/ / 

/ / 

/ / 

/:/ 

a / S 

/?/ 

/ BAD SPOT FILE / 

/TEST COMPLETE/ 

<CRLF>/«*«*******»****/<CRLF> 

/DRIVE NOT ON-LINE OR NOT ASSIGNED/<CRLF> 

<07>/PROGRAM HALT/<CRLF> 

/DRIVE FAILED ON BASIC READ S WRITE TESr/<CRLF> 
/DRIVE FAILED ON WRITE TEST (TEST 4)/<CRLF> 
/FATAL ERROR/ 

<CRLF>/ 'L' OR 'P' CLOCK REQUIRED ON SYSTEH/<CRLF> 

/ 7DRIVE/ 

/ IS LOAD DEVICE/ 

a 7CANN0T SELECT RM03/2'S AND RM05'S TOGETHER (NOT COMPATIBLE )a<CRLF> 
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CMPT TST 
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SYMBOL 


TABLE 


















ABASE = 


176700 


AOSWR = 


OOOOOO 


CKSWR = 


104407 


DRIV4 


004732 


EM43 


040573 


ALDW1 = 


000000 


AVECTU 


000254 


CK.CHR 


022464 


DRIV5 


004754 


EM44 


040640 


ACDU2 = 


000000 


AVECT2= 


OOOOOO 


CK.DEC 


022436 


DRIV6 


004776 


EM45 


040722 


ACK = 


000123 


BADSEC 


001342 


CK.DIG 


022536 


DRIV7 


005020 


EM46 


041010 


ACPUOP= 


000000 


BAD TWO 


005502 


CK.NUM 


036466 


DRVACT 


030176 


EM5 


036766 


ACTDRV 


030252 


BJTO = 


000001 


CK.OCT 


022410 


DRVCLR= 


0001 1 1 


EM50 


041062 


ACTSTR 


030253 


BJTOO = 


000001 


CLKFLG 


001316 


DRVER 


020350 


EM51 


041120 


ADOWO = 


000000 


BITOl = 


000002 


CLOCK 


021526 


DRVINT 


030546 


EM6 


037022 


A0DU1 = 


000000 


BJT02 = 


000004 


CLRDP8 


021 720 


DRVOUE 


036110 


EM60 


041163 


ADDW10= 


000000 


BIT03 = 


000010 


CLROUE 


036012 


DRVSTA 


030206 


EM61 


041206 


A0DU11= 


000000 


BITOA = 


000020 


CMCNT 


001354 


DRVTYP 


030216 


ENDX1 


011004 


ADDW12= 


000000 


BIT05 = 


000040 


CMCYL 


001 356 


DSUR = 


177570 


tRPRCI 


01 7562 


ADDU13= 


000000 


BIT06 = 


000100 


CMSEC 


001362 


DTEER 


020420 


ERPROC 


01 7546 


ADDWU= 


000000 


B1T07 = 


000200 


CMTRK 


001364 


DTUU 


030310 


ERROR = 


104000 


ADDtt15= 


000000 


BIT08 = 


000400 


COLON 


042754 


DTYP 


001402 


ERRVEC= 


000004 


ADDW2 = 


000000 


BIT09 = 


001000 


COMMA 


042646 


DTI 


041634 


ES.SAV 


036254 


A0DW3 = 


000000 


Bin - 


000002 


CPSAVE 


024252 


DT10 


041720 


FALPAR 


01^664 


AODUA = 


000000 


BIT10 = 


002000 


CR = 


00001 5 


DT11 


041734 


FAULT 


001376 


A0DW5 = 


000000 


BIT11 = 


004000 


CRLF = 


000200 


DT12 


041750 


FIL8UF 


021042 


ADDW6 = 


000000 


BIT12 = 


010000 


CYLIMT 


001 374 


DT2 


041640 


FINISH 


023620 


A0DU7 = 


000000 


BIT13 = 


020000 


CYLNDR 


004616 


DT3 


041656 


FMTDPB 


004506 


A0DU8 = 


000000 


BITU - 


040000 


DCKER 


020300 


DT4 


041666 


FMTER 


020460 


A0DW9 - 


000000 


BIT15 = 


100000 


DDISP - 


177570 


DT6 


041700 


GENDPB 


004576 


ADFVCT= 


000000 


BIT2 = 


000004 


DEASG 


017070 


DT7 


041704 


GETREG= 


000141 


AOEVM = 


000000 


B1T3 


000010 


DF1 


041760 


DUMP 


020540 


GETREO 


036164 


AENV 


000000 


BITA - 


000020 


DF2 


041761 


0UMP2 


017720 


GTSWR = 


104406 


AFNVM = 


000000 


BITS - 


000040 


DF3 


041767 


EMPTYQ 


036070 


HALTX 


043106 


AFATAL- 


000000 


BIT6 - 


000100 


DF4 


041772 


EMTVEC= 


000030 


HALT1 


043125 


A«ADR1 = 


000000 


DIT7 = 


000200 


DH1 


041212 


EMI 


036576 


HALT2 


043176 


AMADR2- 


000000 


BIT8 = 


000400 


DH10 


041460 


EM10 


037062 


HCEER 


020470 


AMA0R3= 


000000 


BIT9 


001000 


DH11 


041531 


EM11 


037125 


HCRCER 


020340 


AMADR4= 


000000 


BLKADR 


004444 


DH12 


041602 


EMI 2 


037160 


HOUR 


001 544 


A«AMS1 = 


000000 


BLNKS1 


042752 


DH2 


041221 


EMI 3 


037211 


HT 


000011 


AMAMS2- 


oooooo 


BLNKS2 


042751 


DH3 


041303 


EMU 


037263 


HZ 


001320 


AMAMS3- 


000000 


BLNKS3 


042750 


DH4 


041334 


EMI 5 


037306 


lAEER 


020440 


A«AWSA= 


oooooo 


BLNK5A 


042747 


DH6 


041376 


EM2 


036635 


I8SAVE 


024254 


A«SGAD= 


oooooo 


BPTVEC- 


000014 


DH7 


041407 


EM20 


037342 


IDLEX 


017444 


AWSGLG- 


oooooo 


BUFFER 


043456 


DISMNT 


017016 


EM21 


037363 


INDST 


004424 


AMSGTY= 


oooooo 


BUSADR 


036300 


DISPLA 


001156 


EM22 


037414 


lOTVEC 


000020 


A«Typi= 


oooooo 


CFLAG 


001336 


DI5PLY- 


104414 


EM23 


037467 


ISR 


032762 


AMI rP2- 


oooooo 


CHGADR 


001334 


DISPRE 


0001 74 


EM24 


037546 


KPATH 


016530 


AMTYP3 


oooooo 


CI1 


031602 


DONE 


017744 


EM25 


037614 


KSR 


021634 


AWTYP4= 


oooooo 


CI3 


031710 


DPINT 


030226 


EM26 


037675 


LABAD 


01 5034 


APASS - 


oooooo 


CJA 


032016 


DPRQS 


030236 


EM27 


037722 


IF 


000012 


APR]OR= 


oooooo 


C15 


032374 


DRIVE - 


001224 


EM3 


036673 


LINDEC 


021214 


APTCSU= 


OOOOAO 


CI6 


032416 


DRIVO 


004622 


EM30 


037757 


L INE1 


021116 


APTENV= 


000001 


CI7 


032432 


DRIVI 


004644 


EM31 


040011 


LINKDV 


021764 


APrsiz^ 


000200 


CI 78 


032454 


DRIV10 


005042 


EM32 


040054 


LINOCT 


021 162 


APTSPO 


000100 


CIS 


032532 


DRIV11 


005064 


EM33 


040107 


LODEV 


04 S336 


ASNLST 


002006 


CK8US 


020640 


DRJV12 


005106 


EM34 


040164 


LOGO 


001406 


ASSGNI 


002010 


CKCLK 


021234 


DRIV13 


005130 


EM35 


040226 


LOGI 


001426 


ASSGN2 


002012 


CKCLKl 


021330 


DRIV14 


005152 


EM36 


040264 


L0G10 


001646 


ASWREG- 


oooooo 


CKCLK2 


021376 


0RIV15 


005174 


EM37 


040315 


LOG1 1 


001666 


ATAfllT 


030312 


CKCLK3 


021420 


DR1V16 


005216 


EM4 


036731 


L0G12 


001706 


ATESTMr 


oooooo 


CKERR 


020572 


DRIVl 7 


005240 


EM40 


V'tVDff 


LOG! 5 


UUl fco 




001326 


fUFMT 


020360 


DR1V2 


004666 


EM41 


040446 


L0G14 


001746 




oooooo 


CKMtE 


020370 


DRIV3 


004710 


EM42 


040512 


LOGI 5 


001766 





:hp' *s' 








^AftwE 










O0H^6 


H 


0<.2744 


PJRO = 


lQci 


00K66 




043257 


PJRQVE= 


LOW 


001506 


NOTST 


043356 


POPOUt 


lOGS 


001526 


NU. INE 


00 "1 366 


POSER 


L006 


0015^ 


OFFCOO 


004504 


PRINT 


iQC? 


001566 


Of FSETr 


000115 


PROCES 


lOG8 


00^606 


Of FST 


014244 


PRTBAO 


lOG9 


001626 


oflin 


01 7704 


PRTIW 


LOOP! 


013650 




020410 


PRO = 


LOOP? 


013646 


OPT 


031354 


PR1 


lOOPJ 


015716 


OVWNO 


002056 


PR2 = 


LOOPA 


016510 


OVWNl 


002076 


PR3 = 


I OOPS 


016722 


0VUN10 


002316 


PR4 = 


L00P6 


016740 


OVUNI 1 


002336 


PR5 = 


I '.^AO 


001 332 


0VUN12 


002356 


PR6 = 


fWEUP 


0U476 


0VWN13 


002376 


PR7 = 




042637 


ovunh 


002416 


PS = 


Mf PEM>' 


030322 


0VWN15 


002436 


PSEUDO 


HE SGI 


041 776 


0VViWl6 


002456 


PSW = 


Mf SG10 


C42142 


OVWNl 7 


002476 


PUNSAF 


Mf SG1 1 


042207 


CiAiWlS 


A A ^ C 4 y 

002516 


PWRVEC 


ME SGI 2 


042272 


0VUN2 


AA ^ 4 4 y 

0021 16 


QCNT 


►CSG15 


042310 


ovwn3 


AA^4 Ty 

0021 36 


QDRIV 


HE SGU 


042356 


0VUN4 


A A ^ 4 c y 

0021 56 


QDRVO 


HE SOI 5 


04240? 


0VWN5 


/4 A 1 ^y 

002176 


ODRVl 


HE SGI 6 


042443 


ovw^^6 


A A 4 y 

002216 


QDRV2 


HE SGI 7 


042465 


0VWN7 


A A ^ Ty 

002236 


0DRV3 


HE SGI 8 


042546 


0VWN8 


A A c y 

002256 


QDRV4 


HESG19 


042764 


0VWN9 


002276 


QDRV5 


HESG2 


042006 


OVWPO 


A A T y 

002536 


0DRV6 


ME SG20 


04 3004 


0VWP1 


A A ^ c r y 

002556 


0DRV7 


M£SG?1 


04 3044 


0VWP10 


A A ^ ^^y 

002776 


QJNPT 


HESG5 


042021 


0VWP1 1 


AA 7 A 4 y 

003016 


QOUTPT 


HE SG4i 


042045 


OVWPl? 


003056 


QSTART 


HESGS 


042651 


OVwP 1 3 


003056 


QSTOP 


HESG6 


042664 


OVWP 14 


AA^ A "*y 

003076 


QTERM = 


HESG7 


042670 


OVWPf 5 


0031 16 


outs 


HESG8 


042073 


OVWP 16 


A A T 1 T y 

0031 56 


OUOTH 


HESG9 


042106 


ji ir% 4 7 

0VWP1 


A A ^ C J 

0031 56 


RDCHR = 


HINU'E 


001 346 


0VWP18 


AAT 4 "»y 

0031 76 


RDDAT = 


HOOOO 


0071 36 


0VWP2 


A A ^ c Ty 

002576 


RDHD - 


H001 1 


007444 


0VWP3 


AA'^y H y 

002616 


RDLJN - 


M0012 


007624 


0VWP4 


A A ^y Ty 

002636 


RDNO 


H00<?1 


007162 


0VWP5 


002656 


RDN1 


HOOt"? 


0074 30 


0VWP6 


AA ^y ^y 

002676 


RDNIO 


H0023 


007364 


OVWP 7 


A A •! "7 n y 

002716 


RDN11 


H0030 


007456 


0VWP8 


A 1 Ty 

002736 


RDM 2 


HON''R 


007106 


0VWP9 


A A ^ ^ c y 

002756 


RDN13 


HRMCSI 


036450 


PACK 


A A 4 T / 

001324 


RDN14 


HRMVEC 


056457 


PARER 


A A y T A 

020430 


RDN15 


HXUNDU 


030332 


PCLOCK 


A A 4 7 4/ 

001314 


RDN16 


H.DPin 


022032 


PFECH 


A ■^ / • T y 

024«»34 


RDN17 


H.rp^o 


022070 


PFFCHi 


A y y y i 

024444 


RDN18 


H.DP41 


022124 


PFECH2 


A ^ y C ^y 

024526 


RDN2 






PFECH3 


A y c y A 

024560 


RDN3 


H.pPAA 


022166 


or c rui. 




RDN4 


H.OP'50 


022to0 


PF TSTN 


024574 


RDN5 



B 12 

'6:'?: "5 PA3E ?9-2 





RDN6 


003356 


RHSN = 


000050 


AAA ^y 

000240 


RD^^7 


003376 


RHTNR 


054544 


C36206 


RDN8 


005416 


R«VEC 


050526 


A'^Ay AA 

0^9400 


RDN9 


003436 


RHWC = 


000002 


A-4 "74 C 

01 '152 


RDPO 


005676 


RH.REG 


004526 


A4 7y C 

01 7452 


RDP1 


003716 


RH05 


051062 


020702 


R0P10 


004156 


RNOP = 


000101 


\y\ff\H 


RDP1 1 


AAy 4 r y 

004156 


RSTART 


001400 


000000 


RDP12 


004176 


RTC = 


000117 


000040 


RDP1 3 


004216 


R6 = 


X000006 


OUUICX) 


RDP14 


A A / ')7y 

004236 


R7 = 


X000007 


000140 


RDP15 


004256 


SAVEFG 


050264 


000^00 


RDP16 


A A / '^7y 

004276 


SAVRE6= 


104412 




RDP1 7 


AA y 74 y 

004316 


SC 


035174 


AAA7AA 


RDP18 


AAy 77y 

004336 


SCOPE = 


000004 


(aA)340 


RDP2 


AA7 ^7y 

003756 


SCORE 


014614 


4 7 

1 7ffrt> 


RDP3 


AA7 7C y 

003756 


sen 


054026 


0053?? 


RDP4 


AA7 77y 

003776 


SC12 


054156 


\ f f f fO 


RDP5 


A A y A 4 y 

004016 


SC13 


054206 


ni 7x / / 
U 1 ft>**** 


RDP6 


AAy A7y 

004036 


SC5 


055244 


000024 


RDP7 


AA y Ar y 

004056 


SC4 


055250 


ATC C OA 


RDP8 


AAy A7y 

004076 


» SC5 


055262 


A/ TTOX 


RDP9 


A A y 4 4 y 

004 116 


SC6 


055456 


0j!)6l<r 


RD.ADR 


A7C AA ^ 

055002 


SC6A 


053572 


AlCiLTO 

U3563<: 


RD.RH 


AT/ 7Cd. 

034756 


SC7 


035720 


ATCiLC *0 

03563^ 


Af\ AM4 

RD.RHl 


AT CAAA 

035000 


SC8 


033776 




AA AM*) 

RD.Rfv 


ATC 1 "1/ 

055 1 24 


SEARCH= 


000131 


03!) /^I? 


AA r^M Y 

RD.RflS 


ATC 4 TA 

035130 


SECLMT 


001370 


ATC 7T O 


RD.RW4 


'\TC 4 Ty 

035134 


SECOND 


001350 


ATC 7C O 


AA 1 tf^fV 

RD.WRD 


AT r AAy 

035004 


SEEK = 


A A A 4 f\F 

000105 




AC A A f kl 

RcADJN- 


AAAi '>i 

000121 


SEEKF6 


AT A ^y y 

050266 


A7CC TA 
033330 


AC ^ * 1 m- 

RcCAL = 


AAAI A 7 

000107 


SELDRV= 


AAA 4 y r 

000145 


A7CCCA 

033330 


AC 1 C r _ 

RELSE = 


AAA 4 4 T 

000113 


SELFX 


042650 


033370 


rsT" Al 7 

REPLZ 


A^ "1*^4 A 

022210 


SELFO 


004556 


ATCC70 

0333(^<: 


AC <* AC ^ — 

RESREG= 


4 Ay y 4 T 

104415 


SELF1 


004560 


0360 1 d 


AT C I jr ^ _ 

RESVEC= 


AAAA4 A 

000010 


SELF10 


004402 


A/ *07/ "5 


AM A A A 

RTIADR 


030524 


SELF11 


004404 


A/ Oit/ / 

04^64*1 


AM A C _ 

RnAS = 


A AAA 4 Z 

000016 


SELF12 


004406 


1 Ay / 1 A 


AMA A _ 

RTBA = 


A AAAAy 

000004 


SELF 15 


004410 


AAA 171 
0001 f\ 


AM^ C 4 • 

RMCS1 = 


AAA AAA 

000000 


SELF14 


AA y y 4 

0044 1 2 


AAA 1 7T 

0001 75 


RMCS2 = 


AAAA4 A 

000010 


SELF 15 


0044 1 4 


4 A/ / 1 4 


RWA - 


AAAAAy 

000006 


SELF16 


004416 


005216 


RMD6 = 


AAA A ^ ^ 

000022 


SELF17 


004420 


AA*7 

005256 


RMDC = 


AAA A7 y 

000034 


SELF18 


004422 


AA1/ 

005456 


RMDS 


A A A A 4 ^ 

000012 


SELF2 


AA y 7y 

004362 


AAT/ 7^ 

005476 


AMA T _ 

RnDT = 


AAAA "iZ. 

000026 


SELF5 


AAy 7y y 

004364 


AATC 1 ^ 

005516 


RWC1 = 


AAAAy y 

000044 


SELF4 


A A y 7 / y 

004366 


AA7C 7^ 

005556 


AMT ^ ^ 

RnEC2 = 


AAAA/ y 

000046 


SELF5 


A A y 7 7A 

004370 


005556 


AMP* A A 

RHERRS 


A7A4 y y 

030166 


SELF6 


A A y 7 7 ^ 

004372 


AATC 7^ 

005576 


AMC A 4 _ 

RncRl = 


AAAA 4 / 

000014 


SELF 7 


A A y 7 7 y 

004374 


A A 7y 4 Z 

005616 


Rf^R2 = 


AAAAy ^ 

000042 


SELF8 


AA y 7 7y 

004376 


A A 7Z 7y 

005656 


RhHR = 


AAAA7y 

000036 


SELF9 


AA y y A A 

004400 


AA 


DM f lu f T 


U3U33'» 


C C T CMT — 


AAAI / T 

000143 


003256 


RMLA 


000020 


SETVEC 


007074 


003276 


RHHR1 = 


000024 


SET. IE 


035446 


003316 


RHMR2 


000040 


SIXTEE 


001352 


003336 


RMOF - 


000032 


SIZHEH 


007050 



SYMBOL TABLE 





020510 


TA8.)(''= 


OOT T i4 


# Aa iT/m 

»AUTOB 


Slash 




TBI IV£= 


AAAA4 y 

000014 


n A cc 

iBASE 


jPATH 


016620 


TD 


035024 


SBDADR 


SPOTX 


010636 


TIMER 


T/\'^'7A 

030270 


IBDDAT 


SRCHWT 


030250 


TXVEC = 


000060 


SScLL 


STACK = 


001100 


TPVEC = 


000064 


$8Uf = 


STARS 


043022 


TRAPVE= 


000054 


c ^rvd li 

tCDWl 


STARSC 


001360 


TRFER 


020500 


»CDW? 


START 


005566 


TRKLMT 


001572 


SCHARC 


START1 


005604 


TRNSWT 


050246 


SCKSWR 


START2 


005622 


TRTVEC= 


0OO0T4 


JCLR.T 


START 3 


005654 


TSTW 


AA4 Ty A 

OOT 340 


# /*MT A /* 

JCMTAG 


STATIN 


001322 


TST1 


A4 A1A 

01 1 020 


>Cn3 = 


STKLMT= 


1 77771* 


TST10 


Al fy. C / 

01 5654 


c rM/ — 

5LW4 


STMOAT 


005262 


TSTl 1 


Ai ^T/ O 


•CNTLC 


STO 


034434 


T C- T ^ 

TST2 


A4 1 V7y 

OT T J/4 


5CNTL6 


ST01 


0544 70 


TaT3 


A1 1 ^ CA 

01 1650 


JLNlLU 


ST02 


054564 


T r T/ 

TST4 




JLUWP- 


ST03 


0546T4 


T r T C 

TST5 


A1 1770 


9 rot IAD 


STOS 


G34640 


TST6 


AI TTy / 


»CRLr 


STOo 


054646 


"Si 7 


A1 C 1 / A 

01 J 140 


»LYL - 


ST07 




TYPDS = 


1 A/ / AC 


»DaLK 


ST08 


AT/ 7T/ 


TYPE = 


1 OmhU 1 




S 109 


AT / 7/ / 


T VPOC = 


1 A/ / A 3 


CAO 1A 


SVRH70 


A TC T T A 

055350 


TYPON = 


1 A/ / A/ 

1 U4*»U*i 


»Dt LVL 


SWR 


A A 1 1 C / 

001 1 


TYPOS = 


1 A/ i (\1 

1 U4'»U3 


CAC\/r T 

»L>k VL 1 


SWRf G 


AAA1 7Z 

000^ 76 


T YPKJ H 


A007/ A 


CfNC MM 

WtVn 


SWT In 


A1 7^ 7/ 
01 ftfH 


1 i^DAn 

UCPAR 


A1 7^**/ 


C AA APILI 

»DUAVyM 


SWO = 


AAAAA1 

000001 


ULDr LG 




CACOI V 

SDoPLY 


SWOO = 


A AAAA 1 

OOQOOl 


1 ui r T 

UNIT 


AA1 7TA 

001 


•DToL 


SWOi = 


000002 


UNSAF 


AOAC7A 

0^0530 


CCMT AD* 

»cnTAB= 


SWO? = 


A AAAA/ 

000004 


J 1^ c c o 

WCr ER 


AOAC OA 


StNDAU 


SW03 = 


AAAA 1 A 

000010 


WCKD = 


AAA1 C 1 
OUUl 51 


CCklAr T 


SWOA = 


OOOOcU 


WLKfcR 


AOAT1 A 


•cNV 


SW05 = 


AAAA/ A 

000040 


WCKHD = 


AAA1 C 1 

0001 ->3 


C Cftl\/M 


SWQ6 = 


AAA 1 AA 

000100 


III C f A 

WLcER 


AOA/ CA 


ccoo 
»tUP 


SWOi' = 


AAA"^AA 

000200 


WRTDAT= 


AAA1 ^1 

000161 


c c Aor T 


SW08 = 


AAA/ A A 

OOOhOQ 


WHTHU = 


AAA 1 T 

0U01o3 


>Cnr LG 


SW09 = 


A A 1 ( » AA 

00 1 uoo 


1 m T A A 

WRT . AD 


A7C 


ytHnM 


SWI = 


AAAAAO 

00000^: 


1 IDT OM 


0331 3o 


•cHHUK 


SWIG " 


AA T AAA 

00^000 


1 m T m 

WRT .Rl 


ATC OOO 


JtHHPL 


SWT 1 = 


AA/ AAA 

OOAOOO 


1 lO T O O 

WR T , R^ 


03331<» 


CCDDTO 


SWT? = 


010000 


WR T . R3 


U3!>3<:0 


CCDOTV 


SWT 5 = 


A 1 AAAA 

020000 


WRT.Hs 


03!>3<:4 


• CDTTI 

»cR r 1 L 


CI Ii / _ 

SWI A = 


040000 


WRT.Rj 


03!>3^6 


CC C r AD 

•cbL.V 


SWTS = 


100000 


WRT .WD 


ATCOO/ 

033cc4 


CC T ADI 

*C TABL 


CI 1*5 _ 

SW2 = 


000004 




A1 71 / z 

ui y i*to 


< C T C AIA 


SW3 - 


AAAA 1 A 
000010 


w r A T 1 

Xr ATL 


Ay I'D/ T 

043^:43 


C C A T A 1 

»r AI AL 


SWA = 


000020 


wnA c c 1 

XPA5S1 


A1 AAC y 

U1U0j4 


JrPLG 


sw^ = 


AAAAy A 
00004U 




A1 0/ ^A 

Ul c4oO 


• c T : 1 r 
»r JlLL 


jwD - 


fWll AO 




nni LoL 

\J\J 1 HVH 


M i ^ 


SW7 = 


000200 


Y 


042741 


SfMT = 


SW8 = 


000400 


SAPTHO 


001100 


$GAP = 


SW9 = 


001000 


SATYC 


025156 


SGOAOR 


SrSAOR 


002014 
042655 


SATYl 


025132 


SGDDAT 


TAB 


$ATY3 


025140 


$GET42 


TABi FX 


002054 


$ATY4 


025150 


fGTSWR 



C 12 
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AA V V C A 

001 150 


$H0 = 


AAA/\/\A 

000000 


SRMADR 


001276 


AAi 

001266 


SHIBTS 


AAl 1 tJ\ 

001 100 


SRfVVS = 


000036 


/\A1 1 

001136 


ilCNT 


AAl 1 1A 

001 120 


IRHBA = 


000024 




SJLLUP 


A1C C C T 




000020 


A/11 lA*^ 


# 1 AJT A^ 

SINTAG 


AAl i Cl 

001131 




AAAAY A 
0000 30 


AAAAA^ 

000006 


$1 IcWB 


AAl 1 7A 

001130 


VWA = 


000026 


AA1 07'5 


>Lr 


AAl OI A 

OUlcTU 




00004^ 


AA1 T7/ 

001274 


»LrL6 


A0C77C 




A^^^C^ 

000034 


A1C1 O^ 

0Z31ij6 


>LKC58 


AAl 7 Ay 
00130*» 




00003^ 




JLKCoR 


AAl 7A0 

001 3Uc 


$RMDT = 


000046 


ATTCly 

023534 


>LKS 


AAl 71 A 

001310 




AAAAAy 

000064 


AA1 1 1 y 
UO 1 1 1** 


C 1 1 l/C ^ 


Am 71 0 

UUl 31 d 


CDAAC r O* 


ouuooo 


AAA A A A 


Cl AAD 

SLOOP 


A07A1 0 

Uc3ol<: 


COMCD1 — 


00003*1 


AAAAAI 

000001 




AAl 1 00 

UU 1 1 dd 


COMCOO* 


U000O£ 


AO 7/ C 5 


CI OCOD 


AAl 1 0/ 

UUl l£*» 


COML^ — 


UUW30 


O^OOOl 


Cl oi/cr 
•LPVtL 


AAl 7nA 
UU 1 


CDMI A — 

WnLA ~ 

»WWR1 = 


UUWhU 


0c663^ 


Cl C T Ar\ 

»L5 lAP 


A7AA7A 

U3UUa6 


/WW /. 
0000^4 


AAAAAO 


CM A AO 1 


UU 1 


cdmmdo* 


UUvUOU 


AA"! Oy A 

001 £40 


CMA r\oO 


AAl OCA 

UUl d}\i 


CDM^C — 

>R^u^ = 


AAAAC O 

U000><: 


AA1 OA7 

001 cUf 


CMA AD7 


AAl OC/ 

UU 1 c J*» 


COMCAJ — 


UUUUoU 


AAAA1 O 

OOOUl <: 


CMA Aoy 


AAl OAA 

UU 1 <:oU 


coMiycr 


nni 7nn 
UU 1 jUU 




CMA r 1 

SnAJL 


AAl 01 0 

UUl d\ d 


rriM ir — 


AAAAOO 


A07AAZ 


CMAMC1 


AAl 0^0 

UU 1 CHC 


COTAIArv 
»M 1 IMAU 


notAi L 


AT70AA 


CMAMCO 


AAl 0/A 

UU 1 chO 


COT OKI 


noTAi n 
Uc jO 1 u 


A071 
Uc/^lOH 


CMAMC 7 


AAl OCO 
UU 1 dJd 


CC AV/DC 


noA7i n 


AAI OTO 


CMAMCA 


AAl O^A 
UU 1 C^O 


CC A v/DA 


no^^^A 

UcOO jO 


AAI 07A 

Ow Ic/^U 


CAA A AD 


AAl 1 AO 

UU 1 1 U<: 


ccpon 


n00A7A 


Ut JJ JH 


CMC 1 r 


Uc J J/ 


ccQOn 
•oocU 


n5070Z. 
Uccr CH 


0<:<:3oo 


CMAlCU 


A0AA77 


ccrnDC 
•oLUr't 


no7'?on 
Ucf jcU 


\jdbdcc 


CMC^AA 


AAl OOA 

UU 1 ddt 


ccc r — 


nnnni n 
UUUU 1 u 


OOUOcc 


CMC^I 


AA1 07n 

UUl <:3U 


Ccc Tl ID"» 


AAAI 17 

UUU 1 Jf 


0<:334<» 


CMC^T V 

WlbGI T 


AAl OI 0 
UU 1 C 1 £ 


•oi 


n077/.A 
Ucf f hO 


0<:331^ 


CMCLJD 


AOAAAA 


CCTIID — 
•o 1 Ur - 


1 77777 

\ ( f f f f 


AA1 010 

OUl did 


VI 1 r r 1 


UU 1 CHJ 


• Cl lODC 
•OUr AO 


\JCCJ\J\J 


AA1 077 

OUl <:33 


CMT VDO 

Wll ird 


AAl 0Z.7 
UU 1 £*• / 


CC\/I AfN 
»o VLAU 


n07A7Z. 
VdfOl H 


A07/ 


CMT V07 

VII Trj 


nni 5^'? 

UU 1 c J J 


•ovrL - 


nnnoi^ 

UUUc 1 H 


A07CrtZ 

Uc3DUh 


CMT VDZ. 

Vi 1 Tr«» 


nni 0C7 

UU 1 dJf 


ccuo - 
•own — 


1 77Ann 


AA1 117 

UU 1 1 1 f 


cmvtajt 
VlALni 1 


\JCf 1 HH 


•oWKtu 


nni 01A 

UU 1 C JH 


AA1 1 71 


CkM II 1 

•NULL 


nni 1 7n 
UU 1 1 / u 




uuuuuu 


A07X/LO 


CktJT c T — 
VIWI o 1 — 


uuuuuu 


Cc VCMM— 
»0 T orFl- 


UUUU 1 H 


AA 1 1 7 O 

OUl 13<: 


Cor AiT 
>OLNI 


noAm 0 


C T A Tl IC — 
•lAIUO- 


AAAA 1 A 

UUUU 1 o 


AAC7/iO 

UU330i: 


CAT TV/I 

•UL 1 VL 


\Jdf OUt 


tTP I T 


n07A1 A 
UC^O 1 o 


AO/ OCA 


CAMAAC 


noAni z. 
UcoU 1 H 


• T C DM — 

• 1 CKrl - 


nnnmo 

UUUU jc 


AA1 1 OA 

UUl l<:o 


CAWC D 

>UVbK 


no777n 

Uc f 1 jU 


t TC QTW 
• 1 C 0 1 N 


nni 01 A 

UU I c 1 o 


AA1 OAA 

001200 


CD A C C 

•PAS J 


AA1 oon 
UUl£cU 


CT FMC 

• I jnt 


noi A 7n 

Uc 1 hOU 


001c3tf 




nni 1 (\f 
UU 1 1 uo 


• 1 i nc o 


AAl 1 7A 

UU 1 1 > o 


AA1 07A 

001c^6 




nnnni 

UUUU 1 J 




nni 1 A? 

UU 1 1 Oc 


Ar.i oi y 
UUl<:14 


CDAtJCD 


noc^An 


CT^ TMT 


UCC ' Oh 


AOC77A 

0<:j3f 6 


COCCI — 


UUUUU3 


» 1 (no 


nni 1 An 

UU 1 1 OU 


AA1 1 70 

001 \fd 


CDIJOAAI 


Aocz.nn 
Uc jhUU 


C Tk' CD\y 
• 1 Non V 


Uc jUUh 


001171 

vV 1 I f 1 


SPWRfIG 


025554 


STMPO 


001 1 74 


000001 


SPWRUP 


025452 


JTN - 


000012 


000016 


SQUES 


001206 


STNPWR 


027114 


001134 


SRDCHR 


026524 


$TPe 


001166 


001140 


SRDLIN 


025150 


STPFLG 


001 1 73 


023516 


$RDS2 = 


000001 


$TPS 


001164 


026312 


SRESRE 


026746 


STRAP 


030100 



CZRMTBO RH0S/V2 OR C«PT TS» 
St^WX TABLE 



STRAP? 
ITR(C = 
$TRP = 
ITRPAO 
ITSTM 
STST>#< 



030122 
000011 
000015 
050154 
001104 
001116 



$TTrlN 

STyPOS 

STrPE 

JTrPEC 

fJvPEX 



^CRO V04.00 



025426 
026016 
024576 
025010 
025130 



000 
001 



D 12 
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STVPOC 

STYPON 

STYPOS 

SUNIT 

SUNITM 



. ABS. 045456 
000000 
ERRORS DETECTED: 

VIRTUAL mm^y USED: 60416 WORDS ( 236 PAGES) 
DY^A«IC MEMORY AVAILABLE FOR 70 PAGES 
^ZRMT8.8IN,C7RMT8/C=CZRMT8.D0C,CZRMT8.SYS«AC/M 



025614 
025650 
025570 
001224 
001110 



susyR 

fvECTI 
tVECT? 

surdu = 

IXOFF : 



001236 
00126? 
001264 
000004 
000023 



tXON = 000021 
SXTSTR 027336 
$»GET4= 000001 
lOFiLL 026013 
.$x = 001100 



CZRMTBO RM05/3/2 DR CMPT TST MAC««) V0«.0O 
CROSS REFERENCE TABLE (CREF vOI-05 ) 
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SEO ou; 



i$GET4 

SOFILL 

S^OCAT 

MPTHD 

SASTAT 

lATVl 

SA7V3 

tATV^ 

SATVf 

SAUTOe 

S8ASE 

t3DADR 

SeODAT 

tSELL 

teuF 
tcoui 

SC0U2 

ICHARC 

SCKSWR 

tCLR.r 

fC«3 

SCM4 

tCMTAG 

fCNTLC 

SCNTLG 

SCNTLU 

%com> 



$CPUOP 
SCRLF 



SCYL 

SD62D 

tDB?0 

SDBLK 

SOECVL 

SOEVCT 

tDEvn 

SDOAGN 
SOSPLY 
SDTBL 
SEflTAfi 

SEND AD 

tENOCT 

SENV 

SENVM 

$EOP 



10- 1 

16- 1 

11- 1 

5- 11 
U-1 
K-1* 
13-1 

11- 1 
K-1 

6- 0* 
6-0* 
6-0* 
6-0* 

6- 0* 

7- 0* 
6-0* 
9-?63* 
6-0* 

• 9-A97 
^3-1 
18-1* 
10-1 

6-0 

6-0 

6- 0* 
9-H54 
9-H66 

9- 111 

7- 0 
7-0 
9-; 13* 
6-0* 

6- 0* 
9-542 
9-? 35 
9-C96 

12- 1 

7- 0* 
9-:61 
9-H12 
9-H29 

17- 1 
20-1 

6-0* 

6- 0* 
9-<72 

10- 1 
9-F81* 

17-1 

7- 0 
7-0 

5- 8 
9-31 

6- 0* 
6-0* 
9-?66 



10-''* 
16-1* 
22-1 
5-11* 
K-1 

U-1* 
K-1* 
K-1* 
9-36* 



9-C93 

9- 351 • 
9-184* 

9-KO* 
9-502 

13-1* 

24-1 

10-1* 
6-0* 

6- 0 
9-51 
9-116 

18-1 
18-1 

7- 0 
7-0 

9-<38» 

9- 56 
9-592 
9-?93 
9-D72 

12-1 
9-354* 
9-<43* 

20- 1* 

21- 1* 
17-1 
20-1* 

9- 302* 
9-=39 

10- 1 
24-2 
17-1* 

7-0 
7-0 
9-36 

10- 1* 
9-36 
9-31 

10- 1* 



10-1* 
16-1* 



18-1 



11-1 
9-563* 
9-188 

9-147 
9-516 

13-1* 

24-1 



6- 0* 
9-31 
9-141* 

18-1* 
18-1* 

7- 0 
7-0* 
9-<69* 

9-144 
9-682 

9-aoo 

9-H53 
13-1 
9-561* 
9-<63* 



17-1* 



9-560 
9->00 
10-1 



7-0 
7-0* 

10- 1* 

11- 1 
13-1 



16-1* 



18-1 



11-1 
9-624* 
9-303* 

9-178 
9-700 
13-1* 



6-0* 
9-31 



7-0 

9-357* 

9-=35* 

9-274 
9-698 

9-aoi 

9-H57 
13-1 
9-646* 
9-<64 



9-614 
9->63 
10-1* 



7-0 
9-E43 
11-1 

13-1 
13-1 



18-1 



11-1 
9-630 
9-307 

9-223 
9-747* 
13-1* 



9-31 



7-0 
9-566' 



9-310 
9-754 
9-a03 
9-H65 
13-1 
9-666* 
9-<74* 



9-627 
9-?52 



7-0 



14-1 
14-1 



9-912* 
9-484 

9-253 
9-759 



9-31 



7-0 

9-577* 



9-318 ' 
9-762 
9-a05 
9-121 
18-1 
9-670* 
9-=09* 



9-708 
9-?60* 



7-0 



14-1 



9-917 
9-486 

9-268 
9-764 



9-31 



7-0 

9-587* 



9-327 
9-771 

9- aio 

10- 5 

9-671 
9-= 10 



9-720* 
9-761 



7-0 



9-956* 
9-558 

9-271* 
9-813 



9-31 



7-0 

9-623* 



9-369 
9-793 
9-A19 
10-7 

9-91 1 * 
9--41* 



9-745* 

9-ai3 



7-0 



9-985* 
9-718* 

9-272 
9-81 b* 



7-0 

9-910* 



9-397 
9-825 
9-A21 
10-10 

9-942* 
9—95* 



9-911 



7-0 



9-: 64 
9-746* 

9-304* 
9-818 



9-<44* 
9-750 

9-315 
9-830 



9-= 36* 
9-810 

9-320 
9-835 



9-C26 
9-812 

9-487 
9- •'39 



9-C69 
9-906 

9-489* 
9-?95 



7-0 

9-955* 



9-463 
9-833 
9-A77 
11-1 

9-943 
9-=96 



9-914 



7-0 



7-0 
9-: 46 



9-492 
9-842 
9-C34 
11-1 

9-953* 
9->02* 



9-953 



7-0 



7-0 

9— .48* 



9-500 
9-864 
9-C36 
11-1 



7-0 

9-: 70* 



9-509 
9-868 
9-C61 
12-1 



7-0 

9-: 79* 



9-538 
9-?30 

12-1 



9-:13* 9-:U 9-:17« 



9-: 17 9-;64 9-<41 



7-0 



7-0 



7-0 
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CROSS REFERENCE TABLE (CREF v01-05 ) S£0 0U8 

UOPCT 9-31* 10-1 10-1* 

lERFLG 6-0# 11-1 11-1 11-1. 22-1 22-1 22-1 22-1 22-1 22-1* 

lERflAX 6-0# 9-31 • 22-1 22-1 22-1 22-1* 

lERROR 9-31 n-l* 

tERRPC 6-0* 11-1 11-1 11-1 11-1* ll-l* 12-1 12-1 

KRRTE 8-0* 12-1 

SERRTY n-1 12-1* 

SERTTL 6-0* 11-1 11-1 11-1* 

SESCAP 6-0* 9-31* 11-1 11-1 n-1 11-1 22-1* 25-772 25-850 25-832 25-; 18 ?5-;77 25-81 ?5-=91 

25-=92« 25-=94. 

»E TA8L 6-0* 

IE TEND 5-11 6-0* 

SFATAL 6-0* K-1» 

SFFLG H-1 U-1* U-1« K-l» U-1« 

IFILLC 6-0* 13-1 13-1 13-1 

tFlLLS 6-0* 13-1 13-1 

SFWT 7-0 7-0 7-0 7-0 7-0 7-0 7-0 7-0 7-0 7-0 7-0* 9-: 66- 9-:69« 

tGAP 7-0 7-0* 9-237« 

tGDADR 6-0* 

SGDDAT 6-0* 

$GET42 10-1* 

SGTSWR 9-H70 18-1* 24-1 2A-1 

$HD 4-54 4-54 4-54 

SHI8TS 5-n* 

HCNT 6-0* 22-1 22-1 22-1 22-1 • 22-1* 

tiLLUP 15-1 15-1 15-1* 

UNTAG 6-0* 18-i 18-1 18-1 

%UEm 6-0* 11-1 11-1 r-1 11-1 11-1 11-1* 11-1* 12-1 

%if 6-0* 9-131 11-1 11-1 13-1 13-1 

ILFLG 14-1* 14-1* 

SLKCSe 7-0* 9-D46* 

ILKCSR 7-0* 9-D40 9-D47* 

SLKS 7-0* 9-D51 9-D56" 

SLLVEC 7-0* 9-D53 

SLOOP 10-1 10-1* 

$LPADR 6-0* 9-31* 22-1 22-1 22-1 22-1 • 22-1* 

tLPERR 6-0* 9-31* 11-1 22-1 22-1 22-1 22-1* 

SlPVEC 7-0* 9-D45 

SLSTAD 9-92 23-1* 23-1* 

JMADRI 6-0* 

$MADR2 6-0* 

$«ADR3 6-0* 

SMADR4 6-0* 

SMAR 5-n 5-n 6-0* 9-31 9-36 11-1 13-1 22-1 

Snwsl 6-0* 

$«A«S2 6-0* 

SMAMS3 6-0* 

$«A«S4 6-0* 

$«BADR 5-11* 

S«FlG 14-1 14-1* 14-1* 14-1* 

VttEy 18-1 18-1* 

IMSGAD 6-0* 14-1 14-1 • 

SMSGLG 6-0* 14-1 • 

IMSGTY 6-0* 14-1 14-1 14-1 • 14-i* 

$«SUR 18-1 18-1* 

$«TYP1 6-0* 

$«TVP2 6-0* 



CZRMTBO RWOS/V? Dk CMPT TST HACRO V04.00 
CROSS REFERENCE TABLE (CREF vOI-05 ) 



WTVP3 


6-0# 










V1TVP<. 


6-0# 










SMXCM 




22-1 


22-1 


22-1* 




SNULL 


6-0# 


13-1 


13-1 


13-1 




SAMTS; 


9-A81* 


9-554* 


9-610* 


9-693* 


9-807* 


SOCNT 


16-1* 


16-1* 


16-1* 






tOCTVL 


21-1 


21-1* 








tOMODE 


16-1 


16-1* 


16-1* 


16-1* 


16-1 * 


SOVER 


22-1 


22-1 


22-1 


22-1 


22-1* 


SPASS 


6-0# 


9-31* 


10-1 


10-1 


10-1* 


tPASTM 


5-1 1# 










SPHYDR 


7-0# 


9-235* 


9-256* 






tPOUER 


15-1 


15-1* 








SPSEL 


7-0# 










tPURDN 


9-31 


15-1 


15-1* 






tPURMG 


15-1* 










SPWRiJP 


15-1 


1 5-1* 








WUES 


6-0* 


9-124 


1 1-1 


11-1 


13-1 


SR2A 


24-1 










SRDCHR 


18-1* 


24-1 


24-1 






tRDDEC 


24-1 










IRDLIN 


9-H84* 


24-1 


24-1 






$RDOC T 


24-1 










IRDSZ 


18-1 


18-1* 








tRESRE 


19-1* 


24-1 








fRHEXT 


25-164 


25-193 


25-<16 






SRMADR 


7-0* 


9-73 


9-159 


9-189* 


9-192 


SRMA3 


4-72* 


4-73 








SRMBA 


4-67* 


4-68 


9-C27 


9-C37 


9-C52 


IRMCSI 


4-65* 


4-66 


9-351 


9-353 


9-C07 


tRMCS? 


4-69* 


4-70 


9-A30 


9-C09 




$RMDA 


4-68* 


4-69 


9-975 


9-: 10 


9-<01 


SRMDB 


4-74* 


4-75 








SRMDC 


4-79* 


4-80 








SRMDS 


4-70* 


4-71 


9-355 


9-A33 


9-A62 


SRMDT 


4-76* 


(.-77 








$R^E C 1 


4-83* 


4-84 








$RMEC? 


4-84* 










tRMERI 


4-71* 
9-C1 1 


4-72 


9-A36 


9-A39 


9-A42 


$RMER2 


4-82* 


4-83 


9-A71 


9-A73 


9-C13 


SRMHR 


4-80* 


4-81 








SRMLA 


4-73* 


4-74 








SRMMRI 


4-75* 


4-76 








$R^T1R2 


4-81* 


4-82 








SRMOP 


4-78* 


4-79 








SRMSN 


4-77* 


4-78 








$RWVEC 


7-0* 


9-74 


9-190* 


9-193 


9-197 


fRMWC 


4-66* 


4-67 


9-973 


9-976 


9-: 08 


SRTNAD 


10-1* 










SRTRN 


9-31 


9-31 • 


9-31* 


10-1 


10-1* 


$SAVR6 


1 5-1 


1 5-1* 


15-1* 


15-1* 


15-1* 


»SAVRE 


iV- 1* 


<?4- 1 


24-1 






SSB2D 


9-D25 


9-D74 


9-D79 


9-D84 


9-HlO* 


SS820 


9-D09 


9-H27M 








SSCCPE 


9-31 


22'^M 








SSEC 


7-0* 


9-356* 


9-391 


9-393* 


9-560* 



81 18:12:15 PAGE S-3 

9-896* 9-<26* 9-=24* 9->26# 
16-1* 

10-1* 22-1 22-1 22-1 

13-1 18-1 

9-196 26-14 26-32 26-36 
9-=64 9-=92 

9-A45 9-A48 9-A51 9-A54 9-A57 9-A60 9-A65 9-A68 9-A95 
26-23 

9-: 11 9-<09 9-<11 9-=62 9-=65 9-=90 9-=93 9-r2^ "y-CAO 
9-648* 9-658* 9-659 9-661* 9-909* 9-9S2* 9-975* 9-984* 9-:'C* 
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CROSS REFERENCE TABLE (CREF vOI-05 
9-:62 " 



SSETUP 



SSIZE 
»STUP 

$SUPRS 
iSVLAO 
$SvPC 
SSUR 



isyREG 

SSWfWK 

STATUS 

STBIT 

STERM 

STESTN 

»TIME 

STIMES 

tlKB 

$TKINT 

$TKS 

STKSRV 

STMPO 

STN 



STNPWR 

t^PB 

tTPFLG 

STPS 

STRAP 

STRAP? 

STRK 

$TRP 



STRPAD 

trSTM 

$TST^#1 

STTYIN 

fTYPSN 

tTVPDS 

STYPf 

$TYPFC 

STYPEX 



4-111 
9-31 
10-1 
9-91 
4-111 

4- 1 11# 
9-D26 

22-1 

5- 8 

9-31 

10- 1 

11- 1 
22-1 

6- 0# 
4-55 

22-1 

7- OM 
4-64# 
9-31 • 

24 -3# 

6-0* 

9-C98 

6-0# 
22-1 

6-0# 

9-72 

6-0* 
18-1* 

9-H39 

6-0* 

4- 45* 
9-807 
9->26* 

20-1 
6-0* 
6-0* 

6- 0* 
9-31 

24-1 

7- 0* 
9-; 56 

24-1 
24-1 
24-1 
24-1 
24-2 
24-1 

5- 11* 

6- 0* 
9-H86 

24-1 
17-1* 
9-F 71 
13-1 
13-1 



9-<03 
4-- 11 
9-31 
10-1 

23- 1* 
4-111 

4- 111* 
9-F52* 

22-1* 

5- 8* 
4-54 
9-31 

10-1 
15-1 
22-1 

9-31 

4-55 
22-1 

9-223* 

4-65 
10-1 

12- 1 
9-D70* 
9-31* 

22-1* 
9-E22 
9-H39* 
9-E30* 

9-H49* 
9-277* 
4-54 
9-807 

20-1 

13- 1 
13-1 
13-1 

24- 1* 
24-1* 

9-355* 
9-<59* 

24-1 

24-1 

24-1 

24-1 

24-2 

24-1* 

10-1* 
9-H87 

24-1 
9-F83 
13-1 
13-1 



9-<13 
4-ni 
9-31 
11-1 

4-1 1 I 
4-111* 



4-55 
9-31 

10-1 
22-1 
22-1 

4-55 

22-1 
9-253 
9-a49 

10-1 



12-1 
9-E21 
9-481* 

22-1* 
9-E29 



9-278 
9-481 
9-807* 

20-1* 
13-1 
13-1 
13-1 



9-565* 

9-<60 
24-1 
24-1 
24-1 
24-1* 
24-2 
24-3 

11-1 
9-H99 

24-1 
13-1* 
13-1 
13-1* 



) 

9- 
4- 
9- 
11- 

4- 
4- 



•<39* 
•111 
•31 
-1 

•111 
-111* 



4- 
9- 

10- 
22- 
22- 

4- 
22- 

9- 

9- 
10- 

22-1 



55 
31 

•1 
•1 
1 

55 
1 

487 
366 
■1* 



1* 
9-554* 
9-H41 
9-H42* 9-H56* 



13- 
13- 
13- 



■481 
-896 



1* 

1 
1 



9 
9 
24 
24 
24 
24 
24 



■588* 

-=01* 
■1 

■1 

■1* 
■2 



11 
9 



-1 

-122 



9-<62* 
4-111 
9-31 
11-1 

4-111 



4-55 
9-481 

11-1 

22-1 

22-1 

4-55 

22-1 
9-489 
9-872 

10-1* 



9-610* 
13-1 
9-H69* 



9-481* 
9-896 



14- 
13- 



1 

1* 



9-589 

9—03 
24-1 
24-1 
24-1 
24-1* 
24-2* 



11-1 
9-136 



24-1 
18-1 



9-=07. 
4-111 
9-31 
11-1 

4-111 



4-55 
9-554 

11-1 

22-1 

22-1 

4-55 

9-813 
9-374 
15-1* 



9-693* 
13-1 



9-554 
9-896* 



9-647* 
9->03* 

24-1 

24-1 

24-1 

24-1* 



22-1 
9-140* 



24-1 



9-= 34* 
4-111* 
9-31 
15-1 



4-55 
9-6^0 

11-1 

22-1 

22-1 

4-55 

9-815 
9-a76 



9-807* 
18-1 



9-H71 * 1 3-1 



9-554 
9-<26 



9-5-64* 
4-111* 
9-31 
18-1 



9-=69* 
4-111* 
9-31 
18-1 



9---92* 
4-111* 
9-51 
22-1 



4-111* 
9-31 



4-ni* 

9-36 



4-111* 
9-56 



SEO 01 SO 

9-31 
9-36 



4-111* 4-111* 4-111* 4-111* 4-111* 4-111* 4-111* 



9-662* 
9->04 

24-1 

24-1 

24-1 

24-1* 



22-1 



4-55 
9-693 

11-1 

22-1 

22-1 

4-55 

9-322 
9-378 



9-896* 
18-1 
13-1 



9-554* 
9-<26 



24-1 
24-1 
24-1 
24-1* 



22-1 



4-55 
9-807 

11-1 

22-1 



4-55 



4-55 
9-896 

11-1 

22-1 



22-1 



6-0 

9-<26 
11-1 
22-1 



6-0 

9-=24 
11-1 
22-1 



6-0 

9->26 
11-1 
22-1 



22-1 



9-31 

10- 1 

11- 1 
22-1 



22-1 



9-380 9-382 



9-<26* 
18-1 
18-1 



9-610 
9-<26* 



9-=24* 
18-1 
18-1 



9-610 
9-=24 



22-1 22-1 
9-A27 



9->26* 10-1* 22-1 22-1 
18-1 18-1 

18-1 18-1 18-1 18-1 



9-610* 9-693 9-693 9-693# 
9-=24 9-=24* 9->26 9->26 



9-665 9-665* 9-938* 9-939 9-941* 9-: 18* 9-: 19 



24-1 
24-1 
24-1 
24-1* 



22-1 



24-1 
24-1 
24-1 
24-1* 



22-1 



24-1 
24-1 
24-1 
24-1* 



22-1 



24-1 
24-1 
24-1 
24-1* 



22-1* 



24-1 
24-1 
24-1 
24-1* 



24-1 
24-1 
24-1 
24-1* 
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rRO«s<; RFfFRFNCF TABLE (CREF VOI-05 ) • 

24-1 
2A-1 



(TVPOC 


16-1' 


24-1 




16-1 


16-'* 






24-1 


^ MT T 


6-0# 


7-0 


iiMtTM 
V^jnii 1 n 


5-1 1# 






6-0# 






6-0# 






6-0# 


9-355 




7-0# 




9-=93* 


9-C23 




13-1 


13-1 




13-1 


13-1 


SXTSTR 


22-1* 




.SASTA 


U-1 


14-1 




5-11 


5-1 1* 






6-0 


ACDW1 


6-0 


6-0 


AC0U2 


6-0 


6-0 


ACK 


4-96* 




ACPUOP 


6-0 
25-93* 


6-0 


ACTDRV 


25-347 


ACTSTR 


25-99* 


25-988 


ADDWO 


6-0 




ADDWl 


6-0 




ADOWlO 


6-0 




ADDWl 1 


6-0 




A0DU12 


6-0 




ADDWl 3 


6-0 




ADDWl A 


6-0 




ADDWl 5 


6-0 




ADDW2 


6-0 




ADDW3 


6-0 




ADDW4 


6-0 




ADDW5 


6-0 




ADDW6 


6-0 




ADDW7 


6-0 




ADDW8 


6-0 




ADDW9 


6-0 




ADEVCT 


6-0 


6-0 


ADEVM 


6-0 


6-0 


AENV 


6-0 


6-0 


AE^A/M 


6-0 


6-0 


AF ATAL 


6-0 


6-0 


AMADRl 


6-0 


6-0 


AMADR2 


6-0 


6-0 


AnADR3 


6-0 


6-0 


AI>MDR4 


6-0 


6-0 


AMAMSl 


6-0 


6-0 


AMAMS? 


6-0 


6-0 


Af1AMS3 


6-0 


6-0 


AMAMS4 


6-0 


6-0 


AMSGAD 


6-0 


6-0 


AMSGLG 


6-0 


6-0 


AMSGTV 


6-0 


6-0 


AMTYP1 


6-0 


6-0 


AMTYP2 


6-0 


6-0 


ATlTrPj 


6-0 


6-0 



9-562* 9-626* 9-908* 9-976" 9-983* 9-: 11* 9-:63 9-<11 9-<37. 9--33* 9— 65* 9--6«* 

9-C38 9-C70 

18-1 
6-0 



25-398* 25-691* 25-699* 25-986 
25-:02* 
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AMTVPA 


6-0 


6-0 












APASS 


6-0 


6-0 












APR I OR 


6-0 














APTCSU 


15-1 


14-1* 












APTENV 


11-1 


15-1 


14-1 


14-1* 








APTSI2 


9-31 


14-1* 












APTSPO 


13-1 


14-1 


14-1* 






9-224* 


9-244 


ASNLST 


7-0# 


9-75 


9-135 


9-210 


9-212 


ASSGN1 


7-0# 


9-225* 


9-286* 


9-298 


9-714* 


9-726 




ASSGN2 


7-0# 


9-226* 


9-741 


9-? 58* 








ASUREG 


6-0 


6-0 






25-318 


25-410 


25-515 


ATABir 


9-158 


9-c'28 


9-238 


25-145* 


A^ESTN 


6-0 


6-0 


28-13 










ATTN 


7-0* 


28-12 










AUNIT 


6-0 


6-0 












AUSWR 


6-0 


6-0 












AVECT1 


4-1 09# 


6-0 


6-0 










AVECT2 


6-0 


6-0 






9-806* 






BAD SEC 


7-0* 


9->55* 


9- '28 


9-? 90 






BAD TWO 


9-3* 


9-33 




9-?51 








BITO 


4-58* 


9->59 


9-?19 




22-1 




BITOO 


4-58 


4-58* 


11-1 


11-1 


22-1 




BIT01 


4-58 


4-58* 


9-380 


25-390 


25-655 






BIT02 


4-58 


4-58* 






25-; 71 
25-885 






BIT03 


4-58 


4-58* 


9-A27 


25-849 






BITOA 


4-58 


4-58* 


9-A27 


9-A39 






9IT05 


4-58 


4-58* 


25-865 








25-454 


BIT06 


4-58 


4-58* 


9-E30 


9-H42 


25-328 


25-381 


BIT07 


4-58 


4-58* 


9-366 


9-A42 


25-328 


25-590 


25-711 


BIT08 


4-58 


4-58* 


9-A36 


22-1 


25-328 




22-1 


BIT09 


4-58 


4-58* 


9-378 


n-1 


11-1 


22-1 


BIT* 


4-58* 


9-437 


9-454 






25-657 




BIT10 


4-58* 


9-376 


9-A54 


9-A62 


11-1 


25-618 


BIT11 


4-58* 


9-374 


9-A57 


22-1 


25-281 


25-417 


BIT12 


4-58* 


9-372 


9-A65 


10-1 


25-275 


25-309 


25-328 




25-; 11 


25-;66 


25-<43 






25-375 


25-820 


BIT13 


4-58* 


9-A45 


9-A71 


9-F81 


11-1 


SITU 


4-58* 


9-353 


9-355 


9-380 


9-A30 


9-A33 


9-A71 


25-; 25 


25-<40 








25-387 


25-390 


BIT15 


4-58* 


9-351 


9-A73 


9-A95 


25-375 


25-849 


25-865 


25-875 


25-885 


25-965 


25-: 39 


25-: 75 


BIT2 


4-58* 


9-382 


25-: 83 










eiT3 


4-58* 


9-A48 












BIT4 


4-58* 














BITS 


4-58* 


9-A51 












B1T6 


4-58* 














BIT7 


4-58* 


9-387 


9-398 


9-: 66 








BITS 


4-58* 














BIT9 


4-58* 


9-A60 










9-718 


BLKADR 


7-0* 


9-108 


9-222 


9-252 


9-303 


9-484 


BLNKSl 


9-149 


9-259 


9-325 


9-329 


9-507 


9-769 


9-840 


BLNKS2 


29-29* 














BLNKS3 


9-ai5 


9-323 


29-28^ 










BLNKS4 


9-a36 


29-^7* 












BPTVEC 


4-58* 










9-624 


9-912 


BUFFER 


7-0 


9-351 


9-377 


9-380 


9-563 


BUSADR 


9-191 


26-13* 













SEO 0152 



9-244 9-250 9->60 



25-515 25-895 25-923 25-931 25-932 25-954 25-: 51 



25-734 
25-849 

25-: 39 



25-972 
25-392 

25-; 14 
22-1 

25-392 
25-: 83 



9-746 
9-C54 



25-<42 
25-865 



25-885 25-927 25-<C3 



25-425 25-608 25-653 25-669 25-875 25-877 



25-387 
25-422 



25-422 
25-425 



25-805 
25-618 



25-%5 
25-655 



25-: 75 
25-657 



25-; 21 
25-7% 



9-810 
9-C99 



9-?63 
26-18 



9-320 
26-27 



29-30* 



9-956 9-985 9-<44 9-=36 29-52* 



CZRMTBO 
CROSS RE 
CFLAG 
CHGADR 

cn 

CI3 
C14 
CIS 
CI6 
C17 

CI7B 
CIS 

CIC.CHR 

CIC.DEC 

CK.DIG 

CK.NUM 

CK.OCT 

CKBUS 

CKCLK 

CK.CLK1 

CKCLK2 

CKCLK3 

CKPRR 

CKFMT 

riCHCE 

CKSWR 

CLKFLG 

CLOrK 

CLRDP8 

CLRQUE 

CMCNT 

CMCYL 

CMSEC 

CMTRK 

caoN 

COMWA 
CPSAVE 
CR 
CRLF 

CYLIMT 

CYLNOR 

DCKER 

DDISP 

DEASG 

DF1 

DF2 

DF3 

DF4 

DHl 

DHIO 

DHll 

DHl 2 

DH2 

Dh3 

0H4 

0H6 

DH7 



RM05/3/? 
FERFNrt 

7-JM 
25-AA4 
25-A46 
25-438 
25-494 
25-534 
25-377 
25-567 
25-623# 

25- 626 
9-G36# 
9-G14ir 
9-G67/r 

26- 21 
9-156 
9-358 
9-100 
9-D38 
9-D50 
9-D48 
9-a57 
9-A^,l 
9-A44 

11-1 
7-0# 
9-D44 
9-109 
25-215 
7-OM 
7-OM 
7-OM 
7-OM 
9-077 
29-21 # 
11-1 
4-58# 
4-5&r 
29-10 
7-OM 

7- 0 
9-A70 
4-58* 
9-750* 

8- 7 
8-14 
8-21 
8-28 
8-5 
8-56 
8-63 
8-70 
8-12 
8-79 
8-26 
8-40 
8-49 



DR 
ran 

V-85* 
9-16* 
25-472# 
25-4 96# 
25-518* 
25-516 
25-544 
25-453 
25-577 
25-916 

25- 640* 
9-G73 
9-G42 

26- 30 
9-F96* 
9-C21* 
9-D36* 
9-D49* 
9-D58* 
9-D57 
9-C07* 
9-ei6* 
9-622* 

11-1 
9-D36* 
9-D54 
9-E40* 

25-679 
9-641* 
9-642* 
9-643* 
9->56* 
9-D82 

11-1 
13-1 

9-6 
29-13 

9-354 

7- 0* 
9-A88* 
6-0 

8- 42 
8-35 

28-24* 
28-25* 
28-1* 
28-7* 
28-8* 
28-9* 
8-33 
28-3* 
28-4* 
28-5* 
28-6* 
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(CREF VOl-05 ) 



9-E20* 
9-20* 



25-596* 
25-546 
25-484 
25-588 

25-769 
9-G81 



26-60* 
9-G44 



9-D64* 



22-1 
9-D41 • 
9-D91* 

25-<94* 
9-672* 
9-646 
9-668* 
9->91 

29-31* 

11-1 
13-1 
9-36 
29-24 



9-31 

28-22* 
28-23* 



28-2* 



9-E23 
9-24* 



25-606 
25-548 
25-488 
25-605 

25-: 66 



24-1* 
9-D52* 



9-675* 
9-671 * 
9-; 41 
9->97 



11-1 

9-36 
29-25 



9-H55* 
9-176 



25-602* 

25-492 

25-608* 



9-115* 
9-242 



25-501 
25-715 



SEO 0153 



9-283 



25-510 
25-910 



25-514 
25-<15 



25-526 25-533 25-539 25-543 25-557 25-563 



9-D70 



9-678 
9-674* 
9-; 73 
9-711* 



9-676 

9-<07* 9-<13* 
9-714 9-726 



9-<15* 
9-811 



11-1 

9-50 
29-26 



11-1* 

9-61 
29-36 



n-1» 11-1. 



9-67 
29-36 



9-68 
29-37 



12-1 

9-141 
29-41 



22-1 

13-1 
29-42 



22-1 

13-1 
29-43 



22-1 

29-4 
29-45 



22-1* 22-1* 



29-7 
29-45 



29-8 
29-48 



CZRMT80 
CROSS RE 
DISMNT 
DISPLA 
OISPLY 



OlSPRE 

DOME 

DPINT 

DPRQS 

ORIVO 

ORIVl 

DRIVIO 

DRivn 

0RIV12 

DRIV13 

DRIVU 

DPI VI 5 

DRIV16 

DRIV17 

DRIV2 

DRIV3 

0RIV4 

0RIV5 

DRIV6 

DRIV7 

DRIVE 



DRVACT 

DRVCLR 
DRVER 
DRV INT 
ORVQUE 
DRVSTA 



DRVTYP 

DSUR 

DTI 

DT10 

DTll 

DT12 

DT2 

DT3 

DT4 

DT6 

DT7 

DTEER 

DTUW 

DTYP 
DUMP 

DUMP? 
f«1 



RM05/3/2 
FERENCE 
9-?29 

6- CMr 
9-a89 
9-832 
9-C61 
5-1 # 
9-968 

25-61 # 
25-70# 

7- 0 
7-0 
7-0 
7-0 
7-0 
7-0 
7-0 
7-0 
7-0 
7-0 
7-0 
7-0 
7-0 
7-0 
7-0 
7-0 

7- OM 
9-559 
9-? AO 
9-; 18* 

25-922« 
4-9U 
9-A75 
25-235 
25-366 
9-339 
25-353 
25-: 70* 
9-3^1 
25-287* 
4-58* 

8- 6 
8-57 
8-6A 
8-71 
8-13 
8-20 
8-27 
8-A1 

8- 50 

9- A67 
9-;U* 

25-; 19 

7- OM 
9-A90 
9-668 
9-390 

8- 4 



DR CMPT TST MACRO V04.00 

TABLE (CREF VOI-05 ) 
9-?35# 

9-31. 

9-A01 9-A07 

9-644 9-850 

9-C96 9-C99 
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9-31* 

9-a95 

9-638 

9-C63 

9-31 

9-A27# 
25-244 
25-363 

7-0# 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7- 0* 
9-143* 
9-622 
9-?96 

25-30* 
25-: 44* 

9-610* 
25-269* 
25-379 

9-527 
25-361 

9-343 
25-292* 

6-0 
28-12* 
28-18* 
28-19* 
28-20* 

8- 34 
28-14* 
28-15* 
28-16* 
28-17* 

9- 637* 
25-139* 

9-343* 
9-A98 
9-674 
9-396 
27-3* 



22-1 • 
9-A13 
9-856 
9-D12 



25-247 
25-411* 



9-158* 
9-701 
28-13 
25-371 



25-359 
25—34* 
9-782 
25-385 

9-345 
25-297* 
9-31 



28-13* 



25-357 
25-448* 



25-789 
25-628* 



9-186 
9-761* 

28-14 
25-551* 



9-206 
9-781 

28-15 

25-599* 



25-944 25-958 



9-853 
25-419 



25-40* 
25-423 



9-529 9-533 
25-302* 25-388 



9-A18 
9-862 
9-F60 



25-816 
25-645 



9-228 
9-832* 

28-17 

25-630* 



25-225* 
25-552* 

9-536 
25-684* 



9-A89 
9-B67 
24-2* 



25-955 
25-663* 



9-A97 
9-871 



25-957' 
25-792 



9-A99 
9-879 



9-805 
9-885 



25-:30 25-;53 
25-: 32 25-: 55 



9-811 
9-891 



25-: 59 
25-:61 



9-817 
9-C15 



25-: 69* 
25-:79« 



9-823 
9-C29 



9-827 
9-C54. 



9-238* 
9-852 



9-317* 
9-907 



9-321 
9-;47 



9-338 
9-: 59 



9-350 
9-; 14 



9-499* 
9-; 16 



9-503 
9-<40 



9-526 
9—38 



25-643 25-662* 25-704* 25-812 25-847 25-879* 25-887* 25-907 



25-226* 25-227* 25-228* 25-238* 25-270* 25-280* 25-324* 25-330* 
25-683* 25-795 25-803 25-818 25-873* 25-880* 25-8% 25-960 



9-784 



9-786 9-788 9-855 9-859 9-862 25-52* 25-271* 



25-221 25-440 25-493* 25-637* 25-648 25-664 25-666* 25-677* 25-694 25-705* 25-:35 25-:47^ 



9-531 
9-800 
9-880 
9-A02 



9-786* 
9-606 
9-886 
9-A08 



9-857 
9-612 
9-692 
9-A14 



9-618 

9-694* 

9-A19* 



9-824 9-628 
9-C16 9-C30 



9-633 9-639 9-645 9-651 9-657 9-663 
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CZRMTBO 


RM05/5/2 


DR CMPT 


TST MACRO V04.00 


4-APR- 


81 18:12: 


CROoS REFERENCE 


TABLE (CREF VOI-05 








cn 1 v 




27-9* 










PM1 1 

C~ 1 1 














cn 1 c 




27-1 1* 










PM1 ^ 




27-12* 










C" ■ 




27-11* 










FM1S 


Q-A18 


27-14* 










cnc 


8-1 1 


27-4* 










PM?n 

cncv 


9-ROS 


27-15* 










PM?1 

cnc ' 




27-16* 










cncc 


9-A99 


27-1 7* 










cnc J 


9-A97 


27-18* 










cnc"* 




27-1 9# 










FMPS 

C ric 




27-20* 










cnco 




27-21* 










FM?7 

c nc ' 


9-867 


27-22* 










cn J 


8-18 


27-5* 










FM^Q 


9-61 1 


27-23* 










FM^1 




27-24* 










FM^2 


9-638 


27-25* 












9-644 


27-26* 












9-685 


27-270 












9-650 


27-28* 












9-656 


27-29* 












27-30# 












FM4 


8-25 


27-6* 










EM40 


9-673 


27-31* 










Er<i41 


9-C29 


27-120 










FM42 


27-33* 












EM43 


27-34* 














9-C15 


27-35* 










FM45 


27-56M 














27-57M 












FMS 

cn J 


8-32 


27-70 










FMSO 


9-679 


27-59M 












9-627 

7 DC • 


27-39* 












8-39 


27-^ 












9-691 

7 U 7 1 


27-40* 










En6i 


27''*Mf 






25-: 84 


25-= 19* 




FMPTYO 

C' w 1 1 w 


PS -627 


25-682 


25-735 




EMTVEC 




9-31* 


9-31* 


9-795 






C»m/A 1 


9-300 


9-371 


9-463* 






PDPOn 
CnrnL 1 


0-a67 


9-a72# 




9-366* 






FRPROC 


9-350 


9-354 


9-356 






FRRQR 


4-58* 






9-31* 


9-33* 


9-34* 




4-58* 


9-31 


9-31* 


22-1 


22-1* 


22-1* 


22-1* 


22-1* 


22-1* 




P6-37* 


26-44* 






25-; 77 


25-=90* 


ES.SAV 




25-830 


25-832 


25-; 18 


CAI PAR 


Q^A77 




9-307* 


10-3 










9-753* 






F ft niF 


9*567 


9-<46 


9-C68* 








FINISH 


10-1 


10-3* 






9-365* 


9-366 


FMTDPB 


7-0* 


9-349 


9-360 


9-362 


9-583 


9-621 


9-644 


9-650 


9-652 


9-654 




9-982 


9-990 


9-993 


9-: 45 


9-: 50 


9-: 52 




9-<00 


9-<36 


9-<48 


9-<50 


9-<52 


9-<77 




9-=67 


9-=73 


9—75 









9-D38* 
23-1 



9-D39* 
23-1 



9-D50* 
23-1* 



9-D64' 
23-T 



11-1 
23-1* 



11-1* 
23-1* 



11-1« 
26-34 



22-1 
26-35* 



9-389 
9-905 
9-: 57 
9-<79 



9-400 
9-927 
9-: 72 
9-<81 



9-557 
9-929 
9-: 74 
9-<89 



9-569 
9-931 
9-: 79* 
9-<91 



9-571 
9-951 
9-; 12* 
9-= 32 



9-573 
9-959 
9-; 13' 
9-=43 



9-^79 
9-961 
9-; 15 
9-=45 



9-581 
9-%3 
9-; 56 
9- 47 



CZRMTBO RM05/3/2 
CROSS RbfERENCE 



FMTER 

GENOPB 

GETREG 

GETREQ 

GNS 



GTSUR 

HALT1 

HALT2 

HALTX 

HCEER 

HCRCER 

HOUR 

HT 

HZ 

lAEER 

I8SAVE 

IDLEX 

INOST 

lOTVEC 

ISR 

KIPARO 
KPATH 
KSR 
LABAD 

LF 

LIWEC 

LINEI 

LINKOV 

LINOCT 

LOOEV 

LOGO 

LOG! 

LCXilO 

LOGH 

L0G12 

LOGl? 

LOCK 

10G15 

L0G2 

L0G5 

L0G4 

LOGS 

L0G6 

L0G7 

L0G8 

L0G9 

lOOPI 

L00P2 

I OOPS 

L00P4 

LOOPS 

L00P6 

ISTAO 

H.DP40 

W.DP41 



9-661* 
7-0# 

4- 98# 

25-412 

5- 1 
24-1 

24- 1 
9-36 
9-593 
9-683 
9-594 
9-e67# 
9-A38 
7~0» 
4-58# 
7-OM 
9-A56 

11-1 
9-308 
7-OM 
4-58* 

25- 230 
23-1 

9->65# 
9-E18* 
9-965 
4-58* 

9-C91* 

9-C43 

9-C56 

9-167 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-OM 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-OM 

7-0* 

9-951* 

9-955* 

9-=32* 

9->60* 

9->6l 

9-?n* 

7-0* 

9-E82* 

9-f87 
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TABLE (CREF VOl-05 ) 
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25-650 

5-1 
24-1 
24-1 

24- 1* 
29-42* 
29-43* 

9-684 

9-804* 
9-82* 
9-237 
9-81 
9-649* 
11-1 
9-490 
9-77 
9-51 • 

25- 691* 



9-995 
13-1 



9-E50* 
9-D08* 
29-47* 
9-613 



25-725 

9-6 
24-1 
24-2 



9-: 25 
9-: 16 
9->11 
9-? 10 
9->81 

9-92. 
9-f03 
9-E94* 



9-D73 
15-1 
9-D93 

11-1 
9-696 
9-136 
9-31* 



9-; 99* 
13-1 



25-799 
9-36 
24-1 
24-2 



25-838 
9-50 
24-1 



25-909 
9-61 
24-1 



25-964 
9-6/ 
24-1 



25-: 38 
9-68 
24-1 



25-: 
24-1 
24-1 



25-: 80 25-= 55* 

24-1 24-1 24-1 24-1 

2'-l 24-1 24-1 24-1 



SCO 0156 



24-1 
24-1 



9-A22 9-A85 9-H58 29-41* 



9-: 21 

9-727 
9-705* 

9-93 



9-E02* 
13-1 



9-E03 
29-18 



11-1 n-1 

9-751 9-816 
9-; 66 



9-49 9-=77 



9-E05» 
29-19 



11-1* 
9-"' 36 



11-1* 

9-a42* 



11-1* 



11-1* 



9-95. 



9-V6* 



^ROSS RE 

M.DP50 

M.DPID 

MAKEUP 

MARKX 

«CPt«X 

ME SGI 

ME SGI 0 

MESG11 

ME SGI 2 

ME SGI 3 

MESGK 

ME'.jIS 

MESG16 

ME SGI 7 

ME SGI 8 

ME SGI 9 

MESG2 

MfSG20 

MESG21 

MFSG3 

MESG4 

MESG5 

MESG6 

MESG/' 

Mf SG8 

MESG9 

MINUTE 

MODOO 

M0D11 

MODI 2 

M0D21 

MOD22 

M0025 

MOD50 

MONTR 

MRMCS1 

MRMVEC 

MXWNDW 

N 

NEDCLK 
NOTST 
NUllNE 
Off COO 

Off SET 

OffST 

Of LIN 

OPIEft 

OPT 

OVWNO 

0VWN1 

OVWNIO 

0VUN11 

OVWNI? 

OVWNH 



RM05/3/2 
FERENCE 

9-E95 

9-F05 

9-E80 

9-E57 

9-989 

9-a37 

25- 1 57# 
9-145 
9-370 
9-396 
9-699 
9-705 
9-755 

10-6 

9-? 94 

9-d02 

9-i04 

9-C35 

9-150 
10-8 

9-464 

9-311 

9-319 

9-246 

9-265 

9-275 

9-326 

9-328 

7-0* 

9-155* 

9-194 

9-208 

9-143* 

9-177 

9-186* 

9-207 

9-105* 

26- 15 
26-24 
25-169* 

9-282 
9-059 
9-539 
7-0* 
7-0* 
9->10« 
4-93* 
9-987 
9-d8l 
9-A47 
25-373 
7-0* 
7-0* 
7-0* 
7-0* 
7-0* 



9-<88 9-=72 



9-770 
9-772 
9-D78 



9-206* 
9-242* 
9-157 
9-196* 



9-168 



9-210* 9-239 



26-49* 
26-50* 
25-503 
29-26* 
29-45* 
9-865 
9->62* 
9-950* 



29-48* 
9-a08 

9-: 22 



9-:41* 
9-A12* 
9-631* 
25-408* 
9-899 



25-729 
9-; 55 



9-495 
9-869 



IR C«PT TST n*C«0 V0<..00 
TABLE (C«Ef vOI-05 ) 
9-E98* 
9-P10* 
9-f 14# 
9-E71* 
9-; 05* 
29-19* 
25-; 01 
9-266 
9-543 
9-A78 
9-?38 
9-?44 
9-826 
29-13* 
29-14* 
29-15* 
29-16* 
29-34* 
9-247 
29-35* 
29-37* 
9-493 
9-501 
29-22* 
9-312 
29-24* 
9-508 
9-510 
9-83» 
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25-;47 
9-^13 
9-794 
29-8* 
29-9* 
29-10* 
29-12* 



29-2* 



29-3* 
9-763 



5-757 
29-7* 



9-828 29-1* 



9-834 29-4* 



9-A94 9-756 9-827 29-23* 



9-841 
9-843 
9-D98* 



29-5* 
29-6* 
9-D99 



9-EOl- 



9-173 9-281 



9-ac7» 
9-:24* 



9-<86 9-= 70 



25-936 
9->58 



9-330 
9-: 67 



25-978 
9->69 



9-a34« 

9-; 45 



9-338* 

9-; 51 



9-<75« 9-<96 9-<99« 9-=05« 9--12* 9-=31* 9->08 



9->73 9->77 9->87 9-?12 



C;WT80 R«05/?/a DR C«PT TST H*CRO 
CROSS REFERENCE T/«.E (CREF vOl-05 ) 



■/04-00 18:12:15 



C 

PAGE 



13 
S-1? 



SCO 



OVUNU 

0vw^16 
OVWNI 7 
0VUN18 
0VWN2 
0VWN5 

0VUN5 
0^WM6 
0VWN7 
0VVM8 
0VUN9 
OVWPO 
CVWP1 
0VWP10 

0VWP11 

0VWP12 

0VWP1 I 

OVWPU 

0VWP1 5 

0VWP16 

0VWP1 7 

0VWP18 

OVWP? 

OVWP? 

QVWP4 

0VWP5 

0VUP6 

0VWP7 

0VWP8 

0VUP9 

PACK 

PARFR 

PCLOCK 

PFECH 

PFECHI 

PFECH2 

PFECH3 

PF ECH4 

PFTSTN 

PIRO 

PI ROVE 

POPQUE 

POSER 

PRO 

PR1 

PR2 

'»R3 

PRA 

PR5 

PR6 

PR? 

PRINT 

PROCES 

PRT8AD 

PRTIW 



7-00 

7-00 

7'0» 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

/-O* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

7-0* 

9-A50 

7-0* 
12-1 
12-1 
1?-1 
1?-1 
12-1 
12-1 

^-58* 

^-58* 
25-421 

9-627* 

4-58* 

A -58* 

-,-58* 

4-58* 

4-58* 

4-58* 

4-58* 

4-58* 

9->67 

9-574 

9-390 

9-d83 



9-; 53 



9-619* 
9-643* 
9-D37* 

12-1* 

12-1* 

12-1* 

12-1* 

12-1* 

12-1* 



9->69 9->87 



9-645 
9-D42* 



12-1* 



25-472 25-589 25-891 25-926 25-970 25—70* 



9-E19 
9-H40 
9-34 



9->71 
9-584 
9-A01 
9-A1 7* 



9->75 
9-655 
9-C34* 



9->79 
9-932 



9->85 
9-964 



9->89 
9-994 



9->95 
9-<53 



9-701 
9-<82 



9-789* 
9-<92 



9- 48 



9- 76 



9-«48* 



•"ROSS RE 
PS 

PSEUDO 
PSU 
PVJNSAf 
PWRVEC 
OCNT 
ODRIV 
ODRVO 
ODRVl 
O0RV2 
0DRV3 
0DRV4 
Q0RV5 
Q0RV6 
0DRV7 
QINPT 
CKXITPT 
QSTART 
OS TOP 
QTERM 
OUES 
QUOTM 
R6 
R7 

RD.ADR 
RD.RW 

RD.RHI 
RD.RM2 
RD.RM3 
RD.RMA 
RO.WRD 
RDCHR 
RDDAT 
RDHD 
RDLIN 
RONO 
RDN1 
RDN10 
RDN11 
RDM 2 
RDM 3 
RDN14 
RDM 5 
RDN16 
RDNV 
RON 18 
RDN2 
RDN3 
RONA 
RDN5 
RDN6 
RDN7 
RDN8 
RDN9 
RDPO 



RM05/3/2 
ftRENCE 

4-58 
25-251 • 
7-00 

9-973 
4-58# 
25-<53# 
9-165 
25-<60 
25-<63 
25-<63 
25-<63 
25-<63 
25-<63 
25-<63 
25-<63 
25-<60# 
25-<67# 
2S'<720 
25-<73# 
25-<80 
29-33# 
9-146 
4-58* 
4-58* 
25-; 03* 
25-283 
25-; 68 
25-;05# 
25-;01* 
25-; 12 
25-; 17 
25-; 07* 
9-276 
4-105# 
4-106* 
9-152 
7'OM 
7'Qft 
7'Ott 
7-0# 
7-0# 
7-0* 
7-QM 
7-0* 
7-0* 
7-0* 
7-0* 
7-0* 
7-0* 
7-0* 
7'OM 
7'OM 
7-OM 
7'OM 
7'OM 
7'OM 
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4-58* 
25-345 
9-629 

9-a88* 
9-31* 
25-<95 
29-46* 
25-<67 
25-<70 
25-<70 
25-<70 
25-<70 
25-<70 
25-<70 
25-<70 
25-=21 
25-=21* 
25-=01 
25-=40 
25-<87* 

9-148 
9-31 

25-;04* 
25-^13 
25-; 74 
25-; 33 
25-; 32* 
25-; 24 
25-; 36* 
25-; 08 
9-H49 
9-357 

9-331 
9-900 



9-80* 
25-546» 
9-916 



9-: 55 
25-399* 



9-31* 15-1* 
25-=19* 25-=34 



2S'<72 

25-<73 

25-<74 

25-<75 

25-<76 

25-<77 

25-<78 

25-<79 

25-=38* 

25-=59 

25-=06 

25-=75 



9-267 
9-31* 



25-<86* 

25-<86* 

25-<86* 

25-<86* 

25-<86* 

25-<86* 

25-<86* 

25-<86* 

25—39* 

25-=72 

25-=42 



9-269 
9-31* 



25-; 06* 28-14 
25-319 25-537 
25-<07 



25-; 34* 

28-14 
9-H89 
9-; 11 

9-512 
9-; 49 



28-15 
24-1* 
9-=35 

9-722 
9—27 



9-: 56* 
25-409 



9-: 65* 
25-457* 



9-C19* 9-E31* 9-F68 



S£0 0159 

9-f69* 9-H67 25-213 25-214* 25-245* 



15-1* 15-1* 
25-=36* 25-=56 



15-1* 
25-=70* 



15-1' 



15-1' 



25-=40 

25-=73* 

25-=77 



25- 42* 
25-=74* 



25-=75 25-=77* 



9-314 9-316 9-496 9-498 9-758 9-760 9-829 9-831 29-20* 
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CKCHR 


4-8* 


9-G73 


9-G81 






CKDIG 


4-18* 










CKNUM 


4-31* 










COMMEN 


4-58* 










ENDCOM 


4-58* 






25-832 


25-; 18 
9-A82 


ERRCAL 


24-4* 


25-772 


25-830 


ERROR 


4-58* 


9-A79 


9-A80 


9-A81 


ESCAPE 


4-58* 










GETPRI 


4-58A 


10-1 


23-1 






GETSWR 


4-58* 


9-36 


9-36* 






MORETA 


5-14* 


6-0 




' 




MULT 


4-58* 








9-693 


NEWTST 


4-58* 


9-481 


9-554 


9-610 


POP 


4-58* 


9-; 83 


9-<16 


9-S39 


9-E47 


PUSH 


4-58* 


9-; 40 


9-; 99 


9-?89 


9-E40 


REPORT 


4-53* 










SETPRl 


4-58* 






24-1 


24-1 


SFTTRA 


24-1 


24-1 


24-1 


SETUP 

sk:p 


4-58* 


9-31 








4-58* 










SLASH 


4-58* 








5-11 


STARS 


4-58* 


5-8 


5-11 


5-11 


9-<26 


9-=24 


9->26 


10-1 


11-1 



9-807 
24-1 



9-896 
24-1 



9-<26 
24-1 



9-=24 
24-1 



9->26 
24-1 



24-1 24-1* 24-2 



9-e94 9-B95 9-896 9-697 22-1 



26-43 



9-807 
U-1 
14-1 



24-1 



9-896 
14-1 
14-1 



24-1 



6-0 
12-1 



6-0 
13-1 



9-<26 
15-1 
14-1 



24-1 



6-0 
U-1 



9-=24 
15-1 
15-1 



24-1 



9-481 
15-1 



9->26 
17-1 
15-1 



24-1 



9-554 
15-" 



19-1 

17-1 19-1 



24-1 24-1* 24-2 



9-610 9-693 9-807 
16-1 17-1 18-1 



«»-896 
18-1 
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CROSS REFERENCE TABLE (CREF VOI-05 ) 





18-1 


^9-1 


SURSU 


<i-58« 


9-51 


TRMTRP 


24-1 # 


24-3 


TYPeiN 


4-58* 




TYPDEC 




9-aii 


TYPNAM 


A-58* 


9-36 


TYPNUM 


4-58# 




TYPOCS 


4-S8# 


9-166 


TYPOCT 


4-58* 


12-1 


TYPTXT 


4-58* 


9-6 



20-1 21-1 22-1 23-1 24-1 2S 
9-31* 



12-1 18-^ 

9-50 9-61 9-67 9-68 



